В вводимом слове с клавиатуры заменить все буквы «а» на букву «о». (программа на Паскале)

program aa;
var a:string;
k,x: integer;
begin
readln(a);
k:=length(a);
for x:=1 to k do
if a[x]='а' then a[x]:='о';
writeln(a);
readln;
end.