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

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