从键盘上输入一个N x N（N200） 矩阵，要求找出这个一个数，这个数在这一行和这一列中都是最小的

program juzheng;
var
a,b:array[1..200,1..200] of integer;
n,i,j,p,min:integer;
procedure juzheng(x:integer);
var
w,y:integer;
beginfor w:=1 to n do
if a[w,x]<min then
begin
min:=a[w,x];
y:=w;
end;
writeln(y,' ',x,' ',min);
end;
begin
assign(input,'juzheng.in');
assign(output,'juzheng.ou');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
read(a[i,j]);
readln
end;
for i:=1 to n do
begin
min:=10001;
for j:=1 to n do
if a[i,j]<min then
begin
min:=a[i,j];
p:=j;
end;
juzheng(p);
end;
close(input);
close(output);
end.

测试数据
5
1 52 5 43 17
98 59 61 39 11
85 35 62 6 41
23 13 15 25 97
88 26 11 25 33
测试数据答案
1 1 1
2 5 11
3 4 6
4 2 13
我的答案
0 1 1
0 5 11
0 4 6
0 2 13
1 3 5