Дан текстовый файл. Подсчитать количество строк в нем.

A: proba.txt
procedure kilkist;
var f:text; k:byte;s:string;
begin
assign(f,'A{название файла}:\proba.txt);
resert(f);
k:=0;
while hot(    (f)) do
begin
readln(f,s);
k:=k+1;
end;
writeln('k=',k);
end;{close(f)}

var
 f:text;
 s:string;
 i:integer;
begin
//...
reset(f);
i:=0;
while not eof(f) do
 begin
 readln(f,s);
 inc(i);
 end;
//...
end.

Assign(f,{имя файла});

Assign(f,{имя файла});

var
 f:text;
  s:string;
  i:integer;
begin
 //...
Assign(f,'D:\1.txt');
reset(f);
i:=0;
while not eof(f) do
begin
readln(f,s);
inc(i);
end;
//...
end.

...
while not eof(f) do
begin
readln(f,s);
inc(i);
end;
close(f);
...

  Function {Имя функции} : {Тип функции};
    Var
      {Переменная} : {Тип переменной};
    Begin
    While not Eof({Тия файла}) do { <- Цикл продолжаеться до завершения файла}
      begin
      Readln({Имя файла}, {Переменная строкового типа}); { <- Считываем построчно}
      {Имя функции} := {Имя функции} + 1; { <- Счетчик}
      end;
    End;

  Function ch : Integer;
    Var
      s : String;
    Begin
    While not Eof(txt) do
      begin
      Readln(txt, s);
      ch := ch + 1;
      end;
    End;