Program a8_128;
uses crt;
const n=5;
type mas=array[1..n,1..n] of integer;
var i,j,k:integer;
a:array[1..n,1..n]of integer;
function min(n:byte; a:mas):byte;
var i,minn:integer;
Begin
minn:=a[1,1];
for i:=1 to n do
  if a[i,n]     begin
      minn:=a[i,n];
      min:=i;
    end;
End;
function max(n:byte; a:mas):byte;
var i,maxx:integer;
Begin
maxx:=a[1,1];
for i:=1 to n do
  if a[n,i]>maxx then
    begin
      maxx:=a[n,i];
      max:=i;
    end;
End;
BEGIN
clrscr;
randomize;
writeln(' Массив');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(9)+1;
        write(a[i,j]:3);
      end;
    writeln;
  end;
k:=0;
for i:=1 to n do
  for j:=1 to n do
    if (i=min(i,a)) and (j=max(j,a)) then
      begin
        writeln('[',i,',',j,']');
        k:=k+1;
      end;
if k=0 then writeln('Таких точек нету');
readln;
END.