Текстовый файл.
Нужна процедура для сортировки строк по возрастанию количества пробелов в строке.
процедура для определения количества пробелов в строке:
procedure kol_prob(s1:string, var kp:integer);
var i,dl:integer;
begin
dl:=length(s1);
kp:=0;
for i:=dl downto 1 do
if s1[i]=' ' then kp:=kp+1;
end;