Сформировать файл g, записав в каждой его в строке по одному слову из файла f

uses crt;
var g : file of string;
    f : text;
    i : integer;
    chnum : byte;
    ch : char;
    strng : string;
const fpath = 'C:\ffile.zzz'; tpath = 'C:\tfile.zzz';
begin {Старт}
randomize; clrscr; {Очистили экран}
assign (g, fpath);
assign (f, tpath);
rewrite (f); {Уничтожаем старый файл - пусть каждый раз будет новый}
  for i := 1 to 5000 do begin {В нем будет 5000 букв}
  chnum := 50 + random (110); {Рандомно выбирается следующая буква. Вернее, ее номер в Паскалевском алфавите.}
  if (chnum > 150) then write (f, ' ') {Если номер больше 150 - ставим пробел}
  else write (f, chr(chnum)); {А если нет - то букву под этим номером}
  end;
close (f); {Закрываем файл}
rewrite (g); {Создаем файл с результатом}
strng := ''; {Это слово, которое мы впишем в него. Пока оно пустое, то бишь состоит из 0 букв}
reset (f);
  while not EOF (f) do begin
  read (f, ch); {Смотрим, какая буква в файле следующая}
    if (ch = ' ') and (strng <> '') then begin {Если пробел и если в слове уже есть хоть одна буква...}
    write (g, strng); {то вписываем это слово в файл G}
    strng := ''; {И делаем его пустым чтоб заполнялось опять}
    end
    else strng := strng + ch; {А если буква - НЕ пробел, то просто добавляем её к слову}
  end;
reset (g); {Подготавливаем файл с результатами}
  while not EOF (g) do begin
  read (g, strng); {Считываем из него слова}
  writeln (strng); {И печатаем их на экране}
  end;
readln;
end.

uses crt;
var g : file of string;
    f : text;
    i : integer;
    a : integer;
    s : string;
    chnum : byte;
    ch : char;
    strng : string;
const fpath = 'C:\ffile.txt'; tpath = 'C:\tfile.txt';
begin 
clrscr; 
assign (g, fpath);
assign (f, tpath);
  reset(f);
  readln(f,s);
close (f); 
rewrite (g); 
strng := ''; 
reset (f);
  while not EOF (f) do begin
  read (f, ch); 
    if (ch = ' ') and (strng <> '') then begin 
    write (g, strng); 
    strng := ''; 
    end
    else strng := strng + ch; 
  end;
reset (g); 
  while not EOF (g) do begin
  read (g, strng); 
  writeln (strng); 
  end;
end.

while not EOF (g) do begin
read (g, strng);
writeln (strng);
end;
end.

i := 0; {Это и будет счетчик слов}
while not EOF (g) do begin
read (g, strng);
writeln (strng);
i := i + 1; {Нашли слово - и счетчик увеличился на 1}
end;
writeln ('В файле ', i, ' слов.'); {результат}
readln; {И жмем Enter чтоб закрыть программу}
end.