напомните пожалуйста про строки (pascal)

[mnml]

в упор не могу вспомнить как пишется код для подсчета строк в файле....(
дан текстовый файл, нужно подсчитать колличество строк, и длинну этих строк. хотя если напомните только про строки, оочень хорошо было бы)
блин, вобще)...))
буду очень благодарен!!!

[Belkaw]

var s:string;
t:textfile;
n:integer;
begin
assign(t,"file.txt");
reset(t);
while not(seekeof(t)) do
begin
inc(n);
readln(t,s);
writeln('Line ',n,' contain ',length(s),' symbols');
end;
writeln('In file ',n,' rows');
close(t);
end.


В общем как-то так.

Добавлено через 1 минуту
Если нужно считать пустые строки в конце файла, вместо seekeof можно использовать eof

[Katerina_]

var s:string;
t:textfile;
n:integer;
begin
assign(t,"file.txt");
reset(t);
while not(seekeof(t)) do
begin
inc(n);
readln(t,s);
writeln('Line ',n,' contain ',length(s),' symbols');
end;
writeln('In file ',n,' rows');
close(t);
end.