Исправить ошибки в тексте. Во все слова "длиный" вставить букву "н". (программа Паскаль)

Question

Исправить ошибки в тексте. Во все слова "длиный"   вставить букву "н".

Answer 1

USES Crt;
VAR
  S : STRING [50];  PZ, I: INTEGER;
BEGIN
  ClrScr;
  WriteLn(‘Введите текст’);  ReadLn(S);
  FOR I:=1 TO Length(S) DO
    IF Copy(S,I,6)='длиный' THEN Insert('н',S,I+3);
  WriteLn(‘Измененный текст:’); WriteLn(S);
END.