Обработка информации об участниках соревнований

TYPE
Bus_rec=record
        strana      :string[24];
        FIO         :string[24];
        vozrast     :integer;
        ves         :integer;
        end;
        mas         =array[1..100] of bus_rec;
VAR
       input,output:text;
       x            :mas;
       n            :integer;
PROCEDURE Vvod(var x:mas;var n:integer);
Var    i            :integer;
Begin
    assign(input,'in.txt');
    reset(input);
    read(input,n);
for i:=1 to n do
    Begin
        read(input,x[i].FIO); readln(input);
        read(input,x[i].strana);  readln(input);
        read(input,x[i].vozrast);    readln(input);
        read(input,x[i].ves);    readln(input);
    End;
end;
PROCEDURE Kolmol(var x:mas; var n:integer);
Var    i,k          :integer;
 begin
  k:=0;
   for i:=1 to n do
    if x[i].vozrast < 17 then
      begin
     k:=k+1;
    assign(output,'out.txt');
    rewrite(output);
    writeln(output,'Участников моложе: ',k:2);
    close(output);
End;
end;
procedure SRves(var x:mas; var n:integer);
var i,v,p:integer;
    sr:real;
 begin
  v:=0;
   for i:=1 to n do
    v:=v+x[i].ves;
    i:=i+1;
 sr:=v/i;
assign(output,'out.txt');
    append(output);
    writeln(output,'Средний все участников: ',sr:2);
    close(output);
End;
PROCEDURE Max_ves(var x:mas; var n:integer);
Var    i,max,index  :longint;
Begin
    index:=0;
    max:=70;
    for i:=1 to n do
    if x[i].ves>max then
    Begin
        max:=x[i].ves;
        index:=i;
    End;
    assign(output,'out.txt');
    append(output);
    writeln(output,'ФИО: ',x[index].FIO,' ','Страна: ',x[index].strana);
    close(output);
End;
Begin
Vvod(x,n);
Kolmol(x,n);
SRves(x,n);
Max_ves(x,n);
end.