{ Найти maксимальный элемент прямоугольной таблицы размером [n:m]. }

uses crt;
var 
a : array [1..10,1..10] 
of longint;
    i,j,n,m,max : longint;
begin
  clrscr;
   write('кол-во строк : ');
   readln(m);
   write('кол-во столбцов : ');
   readln(n);
   for i:=1 to m do
   for j:=1 to n do
   begin
     write('a[',i,',',j,']=');
	 readln(a[i,j]);
   end;
   max:=a[1,1];
   for i:=1 to m do
   for j:=1 to n do
   if max