В двухмерном массиве А(4,4)найти наибольший элемент, лежащий на главной диагонали

var   a: array[1..4,1..4]of integer;   i,j,max: integer; begin   max:=-MaxInt;     for i := 1 to 4 do     for j:=1 to 4 do       begin             read(a[i,j]);                if (i=j) and (a[i,j]>max) then max:=a[i,j];           end;        writeln('max = ',max);   end. abs pascal