решите.)паскаль. в предложении заменить буквы о на а.

vari:integer;s:string;begin write('Vvedite text: '); readln(s); for i:=1 to Length(s) do  begin  if (s[i]='o') then s[i]:='a';  end; writeln(s); readln; end.