Найти скалярное произведение строки матрицы с наибольшим элементом и столбца с наименьшим элементом

uses CRT;
var n:integer;
a,sum:real;
       i:integer;
begin
   ClrScr;
  write('n=');
  readln(n);
  sum:=0;
  for i:=1 to n do
  begin
    write('a=');
    readln(a);
    sum:=sum+a;
  end;
  writeln('sum=',sum:5:3);
  readln;
end.

uses CRT;
const n=3;
type Mas=array [1..n,1..n] of integer;
var A:Mas;
p,i,j,max,min,k,m:integer;
 
begin
  ClrScr;
  for i:=1 to n do
  for j:=1 to n do
  begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
  end;
 
  for i:=1 to n do
  begin
  for j:=1 to n do
    write(a[i,j]:2);
  Writeln;
  end;
 
  max:=a[1,1]; min:=a[1,1];
  for i:=1 to n do
  for j:=1 to n do
  begin
    if a[i,j]>max then
    begin
      max:=a[i,j];
      k:=i;
    end;
    if a[i,j]<min then
    begin
      min:=a[i,j];
      m:=j;
    end;
  end;
  p:=0;
  for i:=1 to n do
    p:=p+a[k,i]*a[i,m];
  writeln(p);
  readln;
end.