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

Паскаль.

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

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

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.