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

var s:string; i,k:integer;beginwriteln('Введите строку:');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, arrayk = 2 pragram, pracedure, var, array