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

Паскаль.

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

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

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.