Строковые величины. Паскаль. В данном предложении заменить всюду слог "над" на слог "под". Буду благодарна!

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.