Abcpaskal: с клавиатуры вводится строка. составить программу, которая заменяет все буквы а на о. !

Program tmp;
uses crt;
var   st:string; 
i:integer;
begin
clrscr;
write(vvedite stroku: ');
readln(st);
for i:=1 to length(st) do
begin                           
if st[i]='a' then st[i]:='o';                     
end;
writeln(st);
readkey;
end.