Двумерный массив А[m,n] заполнить целыми числами, определяемыми функцией А[i,j]=i*j*m*Rnd. Определить номер максимального элемента массива.

Program zd4; uses CRT; type mas=array[1..20,1..20] of real; var A:mas; g,b,i,j,n,m,nom1,nom2:integer; max:real; Begin      clrscr;      write ('Введите размер массива: ');      readln (n,m);      write ('Введите диапазон чисел в массиве: ');      readln (g,b);      Randomize;      For i:=1 to n do          Begin               For j:=1 to m do                   Begin                        A[i,j]:=random(b-g)+g;                        write (A[i,j]:5:0,'  ');                   End;                   writeln;          End;      nom1:=1;      nom2:=1;      max:=a[1,1];      For i:=1 to n do        Begin          For j:=1 to m do              Begin                   If a[i,j]>max then                     Begin                      max:=A[i,j];                      nom1:=j;                      nom2:=i;                     End;              End;        End;      writeln ('Максимальный элемент массива= ',max:5:0,' ,его координаты ','[',nom1,',',nom2,']'); readln; End.Так?