из списка городов найти название города с максимальным числом букв [Паскаль]

[Twisti]

задание такое :
Задан список городов. Присвоить переменной Т название города с максимальным числом букв...

вот что у меня есть:

var 
   t1:text;
   max:integer;
   c:char;
   k,n,i:integer;
    begin
     assign(t1,'D:\Goroda.txt');
     reset(t1);
	max:=0;
	while not EOF(t1) do
	begin 
	 k:=0;
	while not EOln do
	begin
	read(t1,c);
	 k:=k+1;
	  end;
	
writeln('s=',t);
readln;
close(t1);
end.

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


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

[GetMax]

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);
  If Length(C) > Max then
  Begin
     Max:=Length(C);
     T:=C
  End;
  k:=k+1;
end;
writeln('s=',t);
readln;
close(t1);
end.

[goto ∞]

Это если в файле в каждом строке по одному городу..

[Twisti]

мне надо бы еще чтобы при запуске писало какие города у мня есть в текстовом файле... Помоги те плз

[Mad_Cat]

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('s=',t);
readln;
close(t1);
end.

[GetMax]

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('s=',t);

[Twisti]

большое спасибо...