дана матрица. найти значение максимального элемента . если их несколько, то определить их количество и местоположение.

uses crt;
 var mas:array [1..100, 1..100] of real; max,kol,l,n,j,a,i:integer;
begin clrscr; randomize;
 write ('введите количество строк массива* = '); readln(n);
 write ('введите количество столбцов массива* = '); readln(l);
 writeln ('исходный массив');
 for i:=1 to l do begin
  for j:=1 to n do begin mas[i,j]:= random (10);
  write (mas[i,j]:7:0 ) end;
 writeln;
 begin
  max:=a[1,1];
  for i:=1 to l do
   for j:=1 to n do
   if a[i,j]>max then max:=a[i,j];
 end;
  begin
   kol:=0;
   for i:=1 to l do
    for j:=1 to n do
    if a[i,j]=max then begin writeln ('(',i,':',j,')'); inc (kol);
  end;
end.

uses crt;
 var mas:array [1..100, 1..100] of real;
 kol,l,n,j,a,i:integer;
 max:real;
begin clrscr; randomize;
  write ('введите количество строк массива* = '); readln(n);
  write ('введите количество столбцов массива* = '); readln(l);
  writeln ('исходный массив');
  for i:=1 to l do
  begin
    for j:=1 to n do
    begin
      mas[i,j]:= random (10);
      write (mas[i,j]:7:0 );
    end;
    writeln;
  end;
  max:=mas[1,1];
  for i:=1 to l do
  begin
    for j:=1 to n do
    begin
      if mas[i,j]>max then max:=mas[i,j];
    end;
  end;
  kol:=0;
  for i:=1 to l do
  for j:=1 to n do
  if mas[i,j]=max then
  begin
    writeln ('(',i,':',j,')'); inc (kol);
  end;
end.