Массивы, двумерный массив Опции

[Flare]

Задача: Составить программу нахождения максимального элемента в каждом столбце и минимального в каждой строке квадратной матрицы.

Снова нужна ваша помощь.. сомневаюсь, что делаю правильно.. (

const
n=100; m=100;
var
a:array[1..n,1..m] of real;
min,max,n1,m1,i,j:integer;
begin
write('введите размерность:');
readln(n1,m1);
for i:=1 to n1 do
for j:=1 to m1 do
                      begin
                         write('a[',i,',',j,']=');
                         readln(a[i,j]);
                      end;
for i:=1 to n1 do
                      begin
                        min:=a[i,1];
                        for j:2 to m1 do
                          begin
                          if a[i,j]<min then 
                                             begin
                                               min:=a[i,j];
                                               writeln(min);
                                             end;
                           end;
                        end;
for j:=1 to m1 do
                         begin
                            max:=a[1,j];
                            for i:=:2 to n1 do
                          begin
                          if a[i,j]>max then 
                                             begin
                                               max:=a[i,j];
                                               writeln(max);
                                             end;
                            end;
                         end;
end.

СПАСИБО!!!