2、求一个5 X 5数阵中的马鞍数,输出它的位置.所谓马鞍数,是指在行上最小而在列

var
a:array [1..5,1..5] of integer;
b,c:array [1..5] of integer;
i,j,k:byte; f:boolean;
begin
for i:=1 to 5 do for j:=1 to 5 do read(a[j,i]);
for i:=1 to 5 do begin
b[i]:=a[i,1]; c[i]:=a[1,i];
for j:=2 to 5 do begin
if a[i,j]>b[i] then b[i]:=a[i,j];
if a[j,i]