Создать список записей F(m), где m<=15, содержащих сведения о футболистах: фамилию, возраст, количество забитых голов. Упорядочить список по алфавиту и вывести. Определить самого результативного игрока старше 30 лет - Pascal(Паскаль)

program footbal;
type
tablica=record
name:string[20];
voz:integer;
gol:integer;
end;
var
i,j,n:integer; a:tablica;
mas:array[1..15] of tablica;
begin
write('n='); readln(n);
for i:=1 to n do
   with mas[i] do
   begin
     writeln('i=',i);
     writeln ('NAME');
     readln(name);
     writeln('VOZRAST');
     readln(voz);
     writeln ('GOLb|');
     readln(gol);
     end;
for i:=1 to n-1 do
for j:=1 to n-i do
  if mas[j].name>mas[j+1].name then
begin
a:=mas[j];
mas[j]:=mas[j+1];
mas[j+1]:=a;
end;
for i:=1 to n-1 do
for j:=1 to n-i do
    if (mas[j].gol>mas[j+1].gol) and (mas[j].voz>30) then
      writeln (mas[j].name,'etot igrok zabil olshe vsex emy za 30')
    else writeln ('net igrokov komy za 30');
write ('name');
write('voz')  ;
write ('gol');
for i:=1 to n do
 with mas[i] do
 begin
 write (name);
write(voz)  ;
write (gol);
end;
end.