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.