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

每行每列找一下，挑出重复的不就ok了？

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

我是编程方面比较菜鸟的，最近在学《聪明人的游戏——信息学探秘》这本书，有两题不会，分别是第二章综合练习中的一二两题（animal）和（teasu），大家能帮帮我吗？下午就要拿去提交评测了，请大家帮个忙吧！