Файлы - Pascal ABC (12709)

//напишем процедуру подготовки строки к подсчету слов
procedure stroka(var s:string);
begin
s:=trim(s);//уберем пробелы в начале и в конце
while pos('  ',s)>0 do //пока в строке есть 2 пробела рядом(в апострофах 2 пробела, не 1!)
delete(s,pos('  ',s),1); //один удаляем
s:=' '+s;//добавим 1 пробел в начало для фиксации первого слова в строке
end;
var f:text;
    s:string;
    kst,ksl,i:integer;
begin
assign(f,'text.txt');//файл в папке с программой
reset(f);
kst:=0;//количество строк
ksl:=0;//количество слов
while not eof(f)do
 begin
  readln(f,s);
  stroka(s);
  inc(kst);
  for i:=1 to length(s) do
  if s[i]=' ' then inc(ksl);
 end;
close(f);
write('Количество строк=',kst,' количество слов=',ksl);
end.