Создать файл, состоящий из слов. Вывести на экран все слова, длина которых равна заданному числу. Входной файл «1.txt» содержит текст из слов — Pascal(Паскаль)

Program PascalGuru;

var
  f: text;
  s: string;
  n: integer;

procedure task5(s: string; k: integer);
var
  i, p, nslov: integer;
  m: array [1 .. 50] of string;
begin
  for i := 1 to length(s) do
    if (s[i] = '.') or (s[i] = '!') or (s[i] = ',') or (s[i] = '-') then
      delete(s, i, 1);
  i := 0;
  repeat
    p := pos(' ', s);
    inc(i);
    if length(copy(s, 1, p - 1)) > 1 then
      m[i] := copy(s, 1, p - 1);
    delete(s, 1, p);
  until p = 0;
  inc(i);
  if length(s) > 1 then
    m[i] := s;
  nslov := i;
  { ***** }
  for i := 1 to nslov do
    if length(m[i]) > k then
      writeln(m[i]);
end;

begin
  assign(f, '1.txt');
  reset(f);
  write('Vvvedite "zadannoe chislo":');
  readln(n);
  while not eof(f) do
  begin
    readln(f, s);
    task5(s, n);
  end;

  close(f);
  writeln;
  writeln('Slova ">', n, '" bykv uspeshno vyvedenny!');
  readln;

end.