Спортландия

const n=4;
      m=7;
      kl:array[1..n] of string[5]=('5 "A"','5 "Б"','5 "В"','5 "Г"');
var b:array[1..n,1..m+1] of integer;
    i,j,imx:integer;
begin
writeln('Введите очки от 1 до 10 для ',n,' команд',' по ',m,' видам');
for i:=1 to n do
 begin
  writeln('Команда ',kl[i],' класса:');
  for j:=1 to m do
  repeat
  readln(b[i,j]);
  until b[i,j] in [1..10];
 end;
writeln('Результат соревнований');
writeln('Команды','Сумма очков':m*3+10);
for i:=1 to n do
 begin
  write(kl[i]);
  b[i,m+1]:=0;
  for j:=1 to m do
   begin
    inc(b[i,m+1],b[i,j]);
    write(b[i,j]:3);
   end;
  if i=1 then imx:=1
  else if b[i,m+1]>b[imx,m+1] then imx:=i;
  writeln(b[i,m+1]:7);
 end;
writeln('Победил в соревнованиях класс ',kl[imx]);
end.