Комбинированный тип данных. Pascal.

[Liinad]

Нужно найти среднее количество жителей всех городов. Помогите дописать кому не сложно.

type
    mir=record
    strana : string [25];
    gorod : string [25];
    kol : integer;
end;
var
F : file of mir;
G : text;
M : mir;
begin
     assign (G,'stran.pas');
     reset(G);
     assign(F,'rezult.pas');
     rewrite(F);
     while not eof(G) do
          begin
               readln(G,M.strana);
               readln(G,M.gorod);
               readln(G,M.kol);
               write(F,M);
          end;
     reset(F);
     while not eof(F) do
          begin
               read(F,M);
               write(M.strana:20);
               write(M.gorod:20);
               write(M.kol:20);
               writeln;
          end;
    close(G);
    close(F);
end.

[netpolice]

Ну Вы блин даете, 99% программы написали, а 2 счетчика запустить тяжело;

type
    mir=record
    strana : string [25];
    gorod : string [25];
    kol : integer;
end;
var
F : file of mir;
G : text;
M : mir;

p,i:integer;
s:real;

begin

i:=0; p:=0;

     assign (G,'stran.pas');
     reset(G);
     assign(F,'rezult.pas');
     rewrite(F);
     while not eof(G) do
          begin
               readln(G,M.strana);
               readln(G,M.gorod);
               readln(G,M.kol);
               write(F,M);

               i:=i+M.kol;  inc(p);

          end;
     reset(F);

s:=i/p; //ну а дальше уж сами втыкайте s куда хотите


     while not eof(F) do
          begin
               read(F,M);
               write(M.strana:20);
               write(M.gorod:20);
               write(M.kol:20);
               writeln;
          end;
    close(G);
    close(F);
end.

[Liinad]

Спасибо большое)