сделать программу по процедурам и спискам

program orlov;
 uses crt;
 type
  ocenka = array [1..6] of byte;
   zap = record
    fio: string[15];
    n_gr: string[6];
    god: integer;
    oc: ocenka;
    reit: real;
   end;
  mas = array [1..30] of zap;
 var
  ank: mas;
  i,j,kol,kol_pr: integer;
  sum, rab: real;
 
 
  begin
   textbackground(7);
   textcolor(3);
   writeln('Введите количество учащихся');
    readln(kol);
    textcolor(3);
     writeln('Введите количество предметов');
      readln(kol_pr);
     for i:= 1 to kol do
      begin
       textcolor(4);
       writeln('     фио     №группы   год ');
        writeln('___________________________');
       with ank[i] do
       begin
        readln(fio,n_gr,god);
      textcolor(3);
      writeln('Введите оценки');
       for j:= 1 to kol_pr do
        readln(oc[j]);
      end;
     end;
    for i:= 1 to kol do
    begin
     sum:=0;
     with ank[i] do
      for j:= 1 to kol_pr do
       sum:= sum+oc[j];
        ank[i].reit:= sum/kol_pr;
     end;
 
    for i:= 1 to kol do
      with ank[i] do
       for j:= 1 to kol_pr do
        if ank[i].reit >= ank[1].reit then
                                        begin
                                         rab:= ank[i].reit;
                                          ank[i].reit:= ank[1].reit;
                                         ank[1].reit:= rab;
                                        end;
 
 
    for i:= 1 to kol do
      with ank[i] do
      begin
       write(fio,' ',n_gr,'  ',god,'  ');
       textcolor(3);
       write('Оценки: ');
        for j:= 1 to kol_pr do
        begin
          write(oc[j],' ' );
        end;
     textcolor(3);
     write('Рейтинг: ');
     writeln(reit);
    end;
   readln;
  end.