В файле input. txt записаны строки сколько их неизвестно заменить все слова короче на в общем и записать результат в файл output. txt на языке ПАСКАЛЬ

в файле input.txt записаны строки сколько их неизвестно заменить все слова короче на в общем и записать результат в файл output.txt на языке ПАСКАЛЬ

  • //input должен быть в кодировке CP866 !!!

    var i:integer;
    var f,g:text;
    var s:string;
    begin
      assign (f, 'input.txt');
      assign (g, 'output.txt');
      reset(f);
      rewrite(g);
      while not (eof(f)) do readln(f, s);
      while(pos('короче', s)>0) do begin
        i:=pos('короче', s);
        delete(s, i, 7);
        insert('в общем',s, i);
      end;
      writeln(g,s);
      close(f);
      close(g);
      readln;
    end.