N спортсменов-многоборцев принимают участие в соревнованиях по М видам спорта. По каждому виду спорта спортсмен набирает

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.

ответственность