Xin đồng học chỉ dạy!!!!

[giagi]

Đây là chương trình của bài toán : cho mảng hai chiều kíck thước nxn với các phần tử là số nguyên. TÌm trong mồi hàng phần tử lớn nhất rồi đổi cho nó với phần tử có chỉ số hàng bằng chỉ số cột;
Hẳn là khá quen thuộc với các bạn.
Nên xin nhờ các bạn chỉ giúp khi sửa lại yêu cầu tìm trong mỗi hàng bằng tìm trong mỗi cột;
************************************************** *********************
program diag;
var
n,i,j,max,ind,vsp:integer;
a:array[1..15,1..15] of integer;
begin
write('nhap n nho hon 15 :'); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('A[',i,',',j,']=');readln(a[i,j]);
end;
write('mang 2 chieu ta co la');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j]:3);
end;
for i:=1 to n do
begin
max:=a[i,1];ind:=1;
for j:=2 to n do
if A[i,j]>max then
begin
max:=a[i,j];ind:=j;
end;

vsp:=a[i,i];
a[i,i]:=max;
a[i,ind]:=vsp;
end;
writeln;
for i:=1 to n do
begin
writeln;
for j:=1 to n do write(a[i,j]:3);
end;
writeln;
readln;

end.
************************************************** ***********************

[quangtq]

Cái này có gì đâu pác:


For j:=1 to n do
Begin
Max:=A[1,j];
For i:=1 to n do If Max<A[i,j] then Begin Max:=A[i,j]; p:=i; q:=j; End;
Temp:=A[p,q];
A[p,q]:=A[j,j];
A[j,j]:=Temp;
End;