найти минимальный элемент в каждой строке матрицы и записать все минимальные элементы в отдельный массив

[W_P]

Очень прошу помочь с одной задачей по Турбо Паскалю! Выручайте народ!
Условие:
Дана матрица. Найти минимальный элемент в каждой строке матрицы и записать все минимальные элементы в отдельный массив. Задачу решить используя процедуры и функции.
Заранее благодарен!!

[north]

{массив a[1..n,1..m}
procedure poisk(n1:integer;var min:integer);
var j1:integer;
begin
min:=30000;
for j1:=1 to m do if min>a[n1,j1] then min:=a[n1,j1];
end;

[W_P]

СПС конечно но можно целиком задачу всю?!? ПрОсто в процедурах я вообще пока не разобралса.

[north]

А ввод массива из файла или с клавиатуры?

[W_P]

с клавиатуры. я еще файлы не осваивал) вот после нового года пойдут наверн

[north]

Код не компилировал.

Program t1;
var n,m:integer;
      a:array[1..20,1..20]of  integer;
      b:array[1..20]of integer;
procedure vvod;
var j,i:integer;
begin
writeln('Введите размеры массива');
readln(n,m);
for i:=1 to n do begin
  for j:=1 to m do read(a[i,j]);
  readln;
  end;
end;

procedure vivod;
var i,j:integer;
begin
for i:=1 to n do write(b[i],' ');
end;

procedure poisk(n1:integer;var min:integer);
var j1:integer;
begin
min:=30000;
for j1:=1 to m do if min>a[n1,j1] then min:=a[n1,j1];
end;

procedure resh;
var i,j,min:integer;
begin
for i:=1 to n do begin
  poisk(i,min);
  b[i]:=min;
  end;
end;

begin
vvod;
resh;
vivod;
end.

[W_P]

Спасибо чувак! Выручил!!!!!!!