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

    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; Вывести на экран значение переменной-счетчика; Закрыть файл.