Помогите с последним заданием по информатике, пожалуйста!(
Найти наибольший элемент главной диагонали двумерного массива из 30 элементов.
Паскаль

Что нужно изменить для этого, не подскажете, пожалуйста?

Для матрицы 6х6 (36 элементов):const n=6;var a:array[1..n,1..n] of integer;i,j,max:integer;beginRandomize;writeln('Исходный массив:');for i:=1 to n do begin for j:=1 to n do  begin   a[i,j]:=random(51);   write(a[i,j]:3);  end;  writeln; end;max:=a[1,1];for i:=2 to n do  if a[i,i]>max then max:=a[i,i];writeln('max = ',max);end.Пример:Исходный массив: 32 14  6 10 45  8 39 31  5 28 18 15  3 19 19 18 35  0 42 27 36 28  8 10  5 13 40 10 41 10 35 12 18 17 31  4max = 41