Поиск в матрице

[Nikolai17]

Для матрицы размером n×m составить массив, содержащий минимальные элементы каждого столбца. Вывести исходную матрицу и справа соответствующие элементы полученного массива.

я ниче лучше не придумал как вот

program df;
uses crt;
var
  A : array[1..4,1..4] of integer;
  i, j : integer;
  max:real;
begin
  writeln('VVedite matrix ');
  for i:= 1 to 4 do
    for j:= 1 to 4 do
      read(A[i,j]);
writeln;
writeln;


  for i:= 1 to 2 do
begin
  for j:= 1 to 2 do
      write(A[i,j], ' ');
  writeln;
end;

  max:=a[1,1];
begin
    if A[i,1]>max then max:=A[i,1];
end;

writeln(i);
writeln;

  max:=a[1,2];
begin
    if A[i,2]>max then max:=A[i,2];
end;

writeln(i);
writeln;

  max:=a[1,3];
begin
    if A[i,3]>max then max:=A[i,3];
end;

writeln(i);
writeln;

  max:=a[1,4];
begin
    if A[i,4]>max then max:=A[i,4];
end;

writeln(i);
writeln;


readkey;
end.

прога работает только на заполнене матрицы.....искать max значения не хочет.....
нашёл на форуме

begin
    if A[i,j]>max then max:=A[i,j];
end;

попытался ставить туда номера столбцов...
Помогите ....

[Greblin]

Так Вы максимум или минимум ищете? Если минимум, то что-то такое

for j := 1 to m do begin
  min := A[1, j];
  for i := 1 to n do
    if A[i, j] < min then min := A[i, j];
  mas[i] := min;
end;

[Nikolai17]

эх ёёё...я уже 2 час мудюсь =) спс .......пора спать...

а почему на max у меня такая хрень выводится?

[Greblin]

Ну я не знаю, что у Вас там выводится, но судя по коду, ничего хорошего хотя бы здесь

  for i:= 1 to 2 do
begin
  for j:= 1 to 2 do
      write(A[i,j], ' ');
  writeln;
end;

Вы выводите только четвертинку матрицы