Паскаль_работа с текстовыми файлами

[Hikari]

здравствуйте!
помогите пожалуйста исправить ошибку в коде, составленной для задачи:

Найти максимальную длину строки в текстовом файле и распечатать все строки файла, имеющие такую длину. Создать новый файл, содержащий только строки с максимальной длиной.

Код программы:

program lab7;
uses crt;
var f_1,f_2:text;
max,t:byte;
a,s:string;

procedure vvod;
var i:byte;
s:string;
begin
clrscr;
rewrite(f_1);
repeat
readln(s);
writeln(f_1,s);
until readkey=#27;
close(f_1);
end;

procedure vivod;
begin
reset(f_1);
while not (eof(f_1)) do
begin
readln(f_1,s);
writeln(s);
end;
close(f_1);
readkey;
end;


procedure poisk;
var z:string;
begin
reset(f_1);
read(f_1,s);
a:=s;
while not (eof(f_1)) do
BEGIN
read(f_1,z);
if length(a)<length(z) then max:=length(z)
else max:=length(a);
end;


writeln;
write('max length of string:', max);
close(f_1);
end;

procedure max_string;
begin
reset(f_1);
while not (eof(f_1)) do
begin
read(s);
if length(s)=max then write(s);
end;
close(f_1);
end;


procedure new_max;
begin
rewrite(f_2);
reset(f_1);
while not(eof(f_1)) do
begin
read(f_1,s);
if length(s)=max then write(f_2,s);
end;
close(f_1);
close(f_2);
end;


procedure vivod2;
begin
reset(f_2);
while not (eof(f_2)) do
begin
readln(f_2,s);
writeln(s);
end;
close(f_2);
readkey;
end;



begin
clrscr;
assign(f_1,'text1.txt');
assign(f_2,'text2.txt');


repeat
clrscr;
writeln('menu');
writeln('1 - vvod');
writeln('2 - show');
writeln('3 - max strings');
writeln('4 - show 2nd file');
writeln('5 - exit');
write('t - ');
readln(t);
case t of
1: vvod;
2: vivod;
3: begin
poisk;
max_string;
end;
4: begin
poisk;
new_max;

end;
end;
until t=5;
end.

по какой-то причине зацикливается в процедуре poisk.
заранее спасибо!

[RUSt88]

строка, это по правилам, Readln, т.е. до знака возврата каретки (Enter)

[Hikari]

тогда как организовать поиск строки с наибольшей длиной?

[Hikari]

после добавления readln(s) теперь проблемы с процедурами max_string и new_max. не выводит на экран и вновь зацикливается

[Hikari]

а при выполнении процедуры poisk выводит только длину первой строки.

[Deamonig]

вот свой вариант написал для задачи:

program sss;
var
f1,f2:text;
s:string;
max:Integer;
begin
assign(f1,'file.txt');
reset(f1);
while not eof(f1) do
begin
readln(f1,s);
if length(s)>max then
max:=length(s);
end;
close(f1);

assign(f2,'vidpovid.txt');
rewrite(f2);
assign(f1,'File.txt');
reset(f1);
while not eof(f1) do
begin
readln(f1,s);
if length(s)=max then
writeln(f2,s);
end;
close(f2);
close(f1);
readln;
end.