Дана строка заменить все вхождения "по" на "под". написать программу на паскале.

Var s:string;i:integer;
begin
i:=1;
read(s);
while i<length(s) do
begin
if (s[i]='п') and (s[i+1]='о') then s:=copy(s,1,i+1)+'д'+copy(s,i+2,length(s)-i-1);
i:=i+1
end;
write(s)
end.