Создания текстового файла, строки которого содержат слова. Определить количество слов в файле. Результат поместить в новый файл — Pascal(Паскаль)

Файл m.txt
Привет
Мир
Програмирование

var
  m, k: text;
  i, J: integer;
  s: string;

begin
  assign(m, 'm.txt');
  assign(k, 'k.txt');
  reset(m);
  rewrite(k);
  J := 0;
  while not eof(m) do
  begin
    readln(m, s);
    writeln(k, s);
    J := J + 1;
  end;
  close(m);
  close(k);
  write('Fail zapisan');
  write('Slov v fayle ', J);
  write('Najmite Enter');
  readln;

end.

var
  m, k: text;
  i, J: integer;
  s, temp: string;

begin
  assign(m, 'm.txt');
  assign(k, 'k.txt');
  reset(m);
  rewrite(k);
  while not eof(m) do
  begin
    readln(m, s);
    temp := '';
    J := 0;
    for i := length(s) downto 1 do
      if s[i] in [' '] then
      begin
        temp := '';
        delete(s, i, 1);
      end
      else
      begin
        temp := temp + s[i]; { выделили слово }
        writeln(k, temp);
        J := J + 1;
      end;
  end;
  close(m);
  close(k);
  write('Fail zapisan');
  write('Slov v fayle ', J);
  write('Najmite Enter');
  readln;

end.