Вычислить, сколько очков в сумме набрал каждый спортсмен после окончания соревнований

Program n21s364;
uses crt;
const
  nmax=20;
var
  n,m,i,j,min,max,sum: integer;
  a: array[1..nmax,1..nmax] of integer;
begin
  write('Сколько спортсменов участвует в соревнованиях? ');
  readln(n);
  write('Сколько видов спорта? ');
  readln(m);
  for i:=1 to n do
  begin
    writeln('Введите результаты ',i,'-го спортсмена:');
    for j:=1 to m do
    begin
      write(' ',j,'-й вид спорта: ');
      readln(a[i,j]);
    end;
  end;
  
  for j:=1 to m do sum:=sum+a[1,j];
  max:=sum; min:=sum;
  
  for i:=1 to n do
  begin
    sum:=0;
    for j:=1 to n do
      sum:=sum+a[i,j];
    if sum>max then 
      max:=sum;
    if sum<min then
      min:=sum;
    writeln(i,'-й спортсмен набрал ',sum,' очков.');
  end;
  writeln('Чемпион набрал ',max,' очков.');
  writeln('Худший спортсмен набрал ',min,' очков.');
  writeln('Разница между ними: ',max-min,'очков.');
  readln;
end.

Program n21s364;
uses crt;
const nmax=20;
      mmax=10;
type sport=record
           fm:string[10];
           bl:array[1..mmax]of integer;
           rz:integer;
           end;
var  n,m,i,j,min,imin,max,imax: integer;
     a: array[1..nmax] of sport;
begin
repeat
write('Количество спортсменов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
repeat
write('Количество видов спорта от 3 до ',mmax,' m=');
readln(m);
until m in [3..mmax];
for i:=1 to n do
with a[i] do
 begin
  write('Введите фамилию ',i,'-го спортсмена: ');
  readln(fm);
  writeln('Введите баллы по видам спорта от 100 до 800:');
  for j:=1 to m do
    begin
     repeat
      write(' ',j,'-й вид спорта: ');
      readln(bl[j]);
     until(bl[j]>=100)and(bl[j]<=800);
    end;
 end;
clrscr;
writeln('Результаты');
write('Фамилия    ');
write('  Баллы');
writeln('Сумма':m*4);
max:=-maxint-1;
imax:=0;
min:=maxint;
imin:=0;
for i:=1 to n do
with a[i] do
 begin
  write(fm:10);
  rz:=0;
  for j:=1 to m do
   begin
    write(bl[j]:4);
    rz:=rz+bl[j];
   end;
  writeln(rz:6);
  if rz>max then
   begin
    max:=rz;
    imax:=i;
   end;
  if rz<min then
   begin
    min:=rz;
    imin:=i;
   end;
 end;
writeln('Чемпион ',a[imax].fm,' набрал ',max,' очков.');
writeln('Худший спортсмен ',a[imin].fm,' набрал ',min,' очков.');
writeln('Разница между ними: ',max-min,' очков.');
readln;
end.