Паскаль

[Twisti]

22. Задан список городов."Присвоить переменной Т название первого из городов, название которого содержит 5 букв...

помогите доработать, у меня есть на максимальное число букв, а мне нужно изменить по этому заданию... а где, что и как менять не могу догнать...

program zadanie1;
var
t1:text;
max:integer;
c,t:String;
k,n,i:integer;
begin
assign(t1,'D:\Goroda.txt');
reset(t1);
max:=0;
k:=0;
  while not EOF(t1) do
   begin
  readln(t1,c);
 writeln(c);
   If Length(C) > Max
    then
       Begin
     Max:=Length(C);
     T:=C
  End;
  k:=k+1;
end;
writeln('max =  ',t);
readln;
close(t1);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

вместо

 If Length(C) > Max

напишите

 
If Length(C) = 5 then ...

ну и по then обеспечьте вывод найденного названия и прерывание цикла чтения файла (вам же нужно только первое найденно 5-ти буквенное название, поэтому дальше читать файл смысла нет...)

[Twisti]

а можно код полностью.... что то у меня не получается...