В текстовом файле находится текст, разбитый на строки . каждая строка состоит из слов,разбитых пробелами.Посчитать количество строк и слов в файле и записать результат в новый файл.

{ Pascal ABC.NET 3.2 } var  f: text;  s: string;  i, l_line, slov: integer; begin   Assign(f, 'd:\in.txt');   Reset(f);   while not Eof(f) do begin     Readln(f,s);     s := Trim(s);     l_line := Length(s);     if l_line <> 0 then begin       for i:=1 to l_line do         if s[i] = ' ' then slov := slov + 1;               slov := slov + 1;       end;   end;   Close(f);   Assign(f, 'd:\out.txt');   Rewrite(f);   Write(f, slov);   Close(f); end.