Delphi 7 ! Кто знает как сделать?

var
a: array [1..100, 1..100] of integer;
i, j, k,n,m: integer;
tempI: integer;

begin
read(n,m);
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
end;

for j:=1 to m do
for k:=j to m do
begin
if a[1,j] > a[1,k] then
begin
for i:=1 to n do
begin
tempI:=a[i,k];
a[i,k] := a[i,j];
a[i,j] := tempI;

end;
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:2, ' ');
end;
writeln;
end;
readln;readln
end.