Определить средний балл успеваемости по каждому предмету

program var15;
uses crt;
type
    fio=array[1..4]of string[12];
    rez=array[1..4,1..3]of integer;
var
   srb:real;
   i,s,n,j,m:integer;
const
     C_fio:fio=('Иванов И.И.','Петров П.П.','Сидоров С.С.','Мишин М.М.');
     C_rez:rez=((4,4,5),(2,3,3),(5,5,5),(4,4,4));
begin
     clrscr;
     for i:=1 to n do
         begin
              s:=0;
              s:=s+C_rez[i,j];
              srb:=s/m;
         end;
     for i:=1 to n do
         if srb>=4 then
            begin
                 writeln('Ударники:');
                 write(c_fio[i]);
            end;
     for i:=1 to n do
         Writeln(C_fio[i],'    ',srb:5:2);
     readln;
end.

program var15;
uses crt;
type
    fio=array[1..4]of string[12];
    rez=array[1..4,1..3]of integer;
var
   srb:real;
   i,s,n,j,m:integer;
const
     C_fio:fio=('Иванов И.И.','Петров П.П.','Сидоров С.С.','Мишин М.М.');
     C_rez:rez=((4,4,5),(2,3,3),(5,5,5),(4,4,4));
begin
     clrscr;
  n:=4;m:=3;
 writeln('Список');  writeln;
 
for i:=1 to n do
writeln(c_fio[i]:20 ,'   ', C_rez[i,1] ,'   ', C_rez[i,2] ,'   ', C_rez[i,3]);
 
    writeln('Ударники:'); writeln;
     for i:=1 to n do
      begin
        s:=0;
        for j:=1 to m do s:=s+C_rez[i,j];
       srb:=s/m;
         if srb>=4 then writeln(c_fio[i]:20,'   ', srb:2:1);
      end;
 
end.