Задача паскаль Дана символьная строка, посчитать количество букв о. Заменить все буквы о на а. Моя программа буквы о считает, а вот на а их не меняет, как это сделать?

var s:string; i, k:integer;

begin

writeln ('Введите строку:') ;

readln (s) ;

k:=0;

for i:=1 to length (s) do

if s[i]='o' then begin k:=k+1; s[i]:='a'; end;

writeln ('k = ', k) ;

writeln (s) ;

end.

Пример: program, procedure, var, array

k = 2

pragram, pracedure, var, array