Задачи на Паскаль ABC!

[Sadty]

Заполнить массив из 6 строк и 7 столбцов случайными числами из диапазона от -60 до 60. Вывести массив на экран,найти сумму элементов массива, максимальный элемент в массиве.

[Stilet]

var a:array[1..6,1..7] of integer; i,j,sum:integer;
begin
 for i:=1 to 6 do begin 
  for j:=1 to 7 do begin a[i,j]:=-60+random(180); sum:=sum+a[i,j]; write(a[i,j]:5);end;  
  writeln; 
 end; write(sum); readln;
end.

Максимальный самостоятельно найти сможешь?

[Sadty]

imax:=1
for i:= 1 to n do begin
if a[i,j]>a[imax,j]thenimax:=i;
 b[j]:=imax+j;
write (b[j]: ' ');
end;
end.

Так?

[Stilet]

b[j]:=imax+j;

Что это? Зачем?