Помогите решить задачу в Delphi
Заполнить двухмерный массив M*N случайными целыми числами из диапазона [-40,40]. Определить : минимальное значение для элементов, расположенных на главной диагонали, и максимальное значение для элементов, расположенных на побочной диагонали.
var a:array[1..10000,1..10000] of integer;
n,m,i,j,min,max:integer;
Begin
Readln(n,m);
For i:=1 to n do
For j:=1 to m do
a[i,j]:=random(80)-40;
min:=a[1,1];
For i:=2 to n do if a[i,i]<min then min:=a;
max:=[n,1];
For i:=2 to n do if a[m-i-1,i]>max then max:=a[m-i-1,i];
Writeln(min,max);
End.
n,m,i,j,min,max:integer;
Begin
Readln(n,m);
For i:=1 to n do
For j:=1 to m do
a[i,j]:=random(80)-40;
min:=a[1,1];
For i:=2 to n do if a[i,i]<min then min:=a;
max:=[n,1];
For i:=2 to n do if a[m-i-1,i]>max then max:=a[m-i-1,i];
Writeln(min,max);
End.