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

implementation
 
{$R *.dfm}
 
var fl: text;
 
fl1: text;
 
Word,Sentence, Str: integer;
 
ch: char;
 
flug: boolean;
 
procedure ReadProc(var fl:text; var W,Sen,St: integer);
 
var ch2: char;
 
begin
 
Read(fl,ch2);
 
if ch2 = ' ' then W := W + 1;
 
if ch2 = '.' then Sen := Sen + 1;
 
if ch2 = #13 then St := St + 1;
 
end;
 
procedure WriteProc(var fl:text; FN: TFileName; W,Sen,St:integer);
 
begin
 
AssignFile(fl,FN);
 
Rewrite(fl);
 
Writeln(fl,'Words:',IntToStr(W));
 
Writeln(fl,'Sentences:',IntToStr(Sen));
 
Writeln(fl,'Strings:',IntToStr(St));
 
CloseFile(fl);
 
end;
 
procedure TForm1.Open1Click(Sender: TObject);
 
begin
 
if OpenDialog1.Execute
 
then
 
begin
 
Edit1.Text := OpenDialog1.FileName;
 
Memo1.Lines.LoadFromFile(Edit1.Text);
 
AssignFile(fl,Edit1.Text);
 
flug := true;
 
end;
 
{
 
}
 
end;
 
Procedure TForm1.Exit2Click(Sender: TObject);
 
begin
 
if flug then CloseFile(fl);
 
Close;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
 
begin
 
Edit1.Text := '';
 
Label1.Caption := 'Words: ';
 
Label2.Caption := 'Sentences: ';
 
Label4.Caption := 'Strings: ';
 
Label5.Caption := '';
 
Label6.Caption := '';
 
Label7.Caption := '';
 
flug := false;
 
end;
 
procedure TForm1.Write1Click(Sender: TObject);
 
begin
 
if OpenDialog1.Execute
 
then WriteProc(fl1,OpenDialog1.FileName,Word,Sentence,Str);
 
end;
 
procedure TForm1.LoadFromFile1Click(Sender: TObject);
 
begin
 
if FileExists(Edit1.Text)
 
then begin
 
Word := 0;
 
Sentence := 0;
 
Str := 1;
 
Reset(fl);
 
while not Eof(fl)
 
do ReadProc(fl,Word,Sentence,Str);
 
Label5.Caption := IntToStr(Word);
 
Label6.Caption := IntToStr(Sentence);
 
Label7.Caption := IntToStr(Str);
 
end;
 
end;
 
end.

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;