Вывести страну с наибольшей площадью

[arefdiman]

Условие задачи:
Дан список стран (во входном файле). Вывести страну с наибольшей площадью в выходной файл, и в ходе программы добавить еще 2 страны с клавиатуры.

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

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

Program a9;
Uses crt;
type geo=record
     gos:string[16];
     pl:string[5];
     st:string[7];
     end;
Var
a:array[0..16] of geo;
inp,out:text;
g:geo;
k:1..5;
LG:1..16;
LS:1..7;
LP:1..5;
i:1..16;
max:string;
begin
clrscr;
assign(inp,'C:\111.in');append(inp);
for k:=1 to 2 do
begin
writeln('vvedite gosydarstvo');
readln(g.gos);
writeln('vvedite plowad');
readln(g.pl);
writeln('vvedite stolicy');
readln(g.st);
LG:=length(g.gos);
if LG<16 then
for i:=LG+1 to 16 do insert(' ',g.gos,i);
LS:=length(g.st);
if LS<7 then
for i:=LS+1 to 7 do insert(' ',g.st,i);
write(inp,g.gos,g.pl,g.st);
end;
close(inp);
reset(inp);
assign(out,'C:\111.out');
rewrite(out);
writeln(out,'strana');
a[i].pl:=g.pl ;
max:=a[1].pl;
repeat
readln(inp,g.gos,g.pl,g.st);
for i:=1 to 9 do
   if max<a[i].pl then
   max:=a[i].pl;
until eof(inp);
writeln(out,'naibolwaya po plowadi',g.gos,max,g.st);
close(inp);
close(out)
end.

Мой входной файл:

Avstriya        84  Vena
Belgiya         31  Brussel
Velikobritaniya 244 London
Germaniya       357 Berlin
Franciya        544 Paris
Italiya         301 Rim
Greciya         132 Afinu