Двумерный массив А[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.

Так?