Записать в текстовый файл все слова длина которых больше девяти символов

program Zadanie138;
 
procedure countword(str: string; n: integer; var skword: string);
// Процедура, которая возвращает слова, количество символов в которых
// больше чем n.
const
  sign = ' ,.;:"!?';
var
  i: integer;
  pr: string;
  cs: integer;
  begword: integer;
begin
  cs:= 0;
  for i:= 1 to length(str) do
    begin
      pr:= copy(str,i,1);
      if pos(pr,sign) = 0 then
        begin
          if cs = 0 then
            begword:= i;
          inc(cs);
        end
      else
        begin
          if cs > n then
             skword:= skword + copy(str,begword,cs) + ' ';
          cs:= 0;
        end;
 
    end;
 
end;
 
 
var
  f, g: Text;  // Файловые переменные.
  s: String; // Промежуточные переменные для хранения строк.
  num: integer;   // Переменная для хранения значения границы количества символов в слове
  seekword: string; // Переменная в которой храняться найденные слова.
begin
  num:= 9; // Число определяемых символов в слове.
  Assign(f,'input.txt');
  Assign(g,'output.txt');
  Reset(f);
  Rewrite(g);
  seekword:= '';
  while not EOF(f) do // Чтение информации из файла.
    begin
      Read(f,s);
      countword(s,num,seekword);
      write(g,seekword);  // Занесение слова в файл.
    end;
 
  Close(f); // Закрытие файлов
  Close(g);
  writeln('The program has completed work.');
  Readln;
end.

program Zadanie138;
 
procedure countword(str: string; n: integer; var skword: string);
// Процедура, которая возвращает слова, количество символов в которых
// больше чем n.
const
  sign = ' ,.;:"!?';
var
  i: integer;
  pr: string;
  cs: integer;
  begword: integer;
begin
  cs:= 0;
  for i:= 1 to length(str) do
    begin
      pr:= copy(str,i,1);
      if pos(pr,sign) = 0 then
        begin
          if cs = 0 then
            begword:= i;
          inc(cs);
        end
      else
        begin
          if cs > n then
             skword:= skword + copy(str,begword,cs) + ' ';
          cs:= 0;
        end;
 
    end;
 
end;
 
 
var
  f, g: Text;  // Файловые переменные.
  s: String; // Промежуточные переменные для хранения строк.
  num: integer;   // Переменная для хранения значения границы количества символов в слове
  seekword: string; // Переменная в которой храняться найденные слова.
begin
  num:= 9; // Число определяемых символов в слове.
  Assign(f,'input.txt');
  Assign(g,'output.txt');
  Reset(f);
  Rewrite(g);
  while not EOF(f) do // Чтение информации из файла.
    begin
      seekword:= '';
      Readln(f,s);
      countword(s,num,seekword);
      write(g,seekword);  // Занесение слова в файл.
    end;
 
  Close(f); // Закрытие файлов
  Close(g);
  writeln('The program has completed work.');
  Readln;
end.