Строковые величины. Паскаль. В данном предложении заменить всюду слог «над» на…

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.