Помогите с Паскалем! Составте программу которая заменяет все буквы 'о' в ведённом слове, на ' ' (пробелы).

что никто не может помочь? напишу программу за 50р, оплата через Яндекс Деньги

Var
s:string[40];
i:integer;
k:byte;
begin
writeln('Введите строку');
readln(s);
k:=0;
for i:=1 to length(s) do
if s='O' then
begin
s:=' ';
k:=k+1;
end;
writeln('Исправленная строка ',s);
writeln('Количество замен ',k);
end.

Примерно так.