Строковые величины.

Паскаль.

В данном предложении заменить всюду слог "над" на слог "под".

Буду благодарна!

Program Zamena;

Uses Crt;

var s:string;

i:integer;

begin

clrscr;

write ('Введите строку:')

readln (s);

if pos ('над', s) 0 then

begin

i:=pos ('над', s);

delete (s, i, 3);

insert ('под', s, i);

writeln ('Строка после замены:', s);

end

else writeln ('нету Такого Слога!');

readkey;

end.