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

program z1;

var k:integer;

s:string;

f:text;

begin

assign (f,'input. pas') ;

reset (f) ;

k:=0;

while not eof (f) do begin

readln (f, s) ; k:=k+1; end;

writeln ('k=', k) ;

close (f) ;

end.

Связать логический файл f с физическим файлом input. pas; Открыть файл для чтения; Организовать считывание данных из файла построчно (readln (f, s), где s-переменная типа string), насчитывая на каждом шаге считывания значение переменной-счетчика k; Вывести на экран значение переменной-счетчика; Закрыть файл.