Написать функцию str(t), которая в заданном текстовом файле t подсчитывает количество непустых строк - Delphi - Ответ 6355422

function str(var f:textfile):integer;
var s:string;
    t:boolean;
    i,k:integer;
begin
k:=0;
while not eof(f) do
 begin
  readln(f,s);  //читаем строку
  if s<>'' then //если она не пустая
   begin
    s:=#0+s;//добавим пустой симол в начало строки
    t:=true;//пусть символы отсортированы
    i:=2;//начнем со второго проверять
    while(i<=length(s))and t do //пока не конец строки и отсортированы
    if s[i]<=s[i-1] then t:=false //если нарушен порядок, дальше не проверяем
    else inc(i);//иначк дальше
   end;
  if t then inc(k);//если все строго по возрастанию, то считаем
 end;
str:=k  //значение функции
end;
procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
begin
assignfile(f,'text.txt');//файл в папке с программой
reset(f);//откроем для чтения
Edit1.Text:='Количество строк с символами по возрастанию='+
             inttostr(str(f));
 
end;