Дан текстовый файл FileIn. Составить процедуру RemWord(FileIn, FileOut), которая удаляет в файле слова и фразы, выделенные кавычками (включая сами кавычки), и помещает результат в FileOut — Pascal(Паскаль)

program PascalGuru;

uses crt;

var
  f, g: text;
  str: string;

  { -------------------------------------------- }
procedure RemWord(FileIn: string; FileOut: string);
var
  i, j: integer;
  s: string;
begin
  assign(f, FileIn);
  reset(f);
  assign(g, FileOut);
  rewrite(g);

  while not eof(f) do
  begin
    readln(f, s);

    for i := 1 to length(s) do
    begin
      if s[i] = '"' then
        for j := i + 1 to length(s) do
          if s[j] = '"' then
            delete(s, i, j - i + 2);

      if s[i] = '''' then
        for j := i + 1 to length(s) do
          if s[j] = '''' then
            delete(s, i, j - i + 2);
    end;

    writeln(g, s);
  end;
  close(f);
  close(g);
end;

{ -------------------------------------------- }
begin
  RemWord('File.In', 'File.Out'); { вызов процедуры }
  writeln('Fail "File.Out" uspeshno zapisan...');

  readln;

end.