В метании молота состязается n спортcменов. Каждый из них сделал m бросков. Побеждает спортсмен, у которого максимален наилучший бросок. Если таких несколько, то из них побеждает тот, у которого наилучшая сумма результатов по всем попыткам. Если и таких несколько, победителем считается спортсмен с минимальным номером. Определите номер победителя соревнований.Язык Паскаль

label next;

var a: array of array of integer;

b: array of integer;

i,j,n: integer;

begin

write('Введите  N: ');

readln(n);

setlength(a,n);

setlength(b,n);

for i:=0 to n-1 do setlength(a[i],n);

for i:=0 to n-1 do

for j:=0 to n-1 do a[i,j]:=60-random(100);

writeln('Полученный массив: ');

for i:=0 to n-1 do begin writeln;

for j:=0 to n-1 do write(a[i,j],' ');

end;

i:=0;

j:=0;

while (i<n) do begin

while (j<n) do begin

if (a[i,j]>0) then begin

b[i]:=a[i,j];

j:=0;

goto next;

end else inc(j);

end;

next: inc(i);

end;

writeln;

writeln('Отобранные данные: ');

for i:=0 to n-1 do write(b[i],' ');

readln;

end.

Если я правильно понял, то

var a: array of array of integer;

n,i,j: integer;

begin

write('Введите N: ');

readln(n);

setlength(a,n);

for i:=0 to n-1 do setlength(a[i],n);

for i:=0 to n-1 do

for j:=0 to n-1 do a[i,j]:=random(n)*2;

writeln('Вывод матрицы :');

for i:=0 to n-1 do begin

writeln;

for j:=0 to n-1 do write(a[i,j],' ');

end;

writeln;

writeln('Главная диагональ :');

for i:=0 to n-1 do for j:=0 to n-1 do if (i-j=0) then write(a[i,j],' ');

writeln;

writeln('Побочная диагональ :');

for i:=0 to n-1 do for j:=0 to n-1 do if (i+j=n-1) then write(a[i,j],' ');

readln;

end.