Написать программку для нахождения наивеличайшего элемента в двумерного массива размером 3*4,

program raf105;

var  

 a:array[1..3,1..4] of integer;

 i,j,max: integer;

begin

max:= -10000;

for i:=1 to 3 do

begin

 for j:=1 to 4 do

 begin

   a[i,j]:= random(10,99);

   if a[i,j] gt; max

     then max:= a[i,j];

   write(a[i,j],' ');

 end;

 writeln;

end;

writeln('Наибольшее значение: ',max);

end.

PascalABC 3.4.2