не могу понятьпроцедуры

[Nerotim]

Задача
Найти наименьший элемент в каждой четной строке матрицы A и из этих элементов создать одномерный массив.Матрицу и сформированный массив на печать. Сделать процедурами.

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

И вообще верный ли алгоритм?

  program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils, math;
  Type Tmatr = array[1..10, 1..5] of integer; Tmas=array[1..10] of integer;
  //------------------------------------------------------
  Procedure vvod (var a:Tmatr; ni,nj:integer);
  var i,j:integer;
begin
  for i := 1 to ni  do
    begin
      for j := 1 to nj do
      read(a[i,j]);
      readln;
    end;
end;
//====================================================
Procedure vivod( a:Tmatr; b:Tmas; var ni,nj,nk:integer);
var i,j,k:integer;
begin
  writeln ('ishodnaya matriza');
  for i := 1 to ni do
  begin
    for j := 1 to nj do
      writeln(a[i,j]);
      writeln ;
  end;

writeln('polychenyi massiv');
for k := 1 to nk do
  write (b[k]);
writeln;
end;
//==========================================
Procedure alg(var a:Tmatr; var b:Tmas; nk,ni,nj:integer    );
var i,k,j,min: integer;
begin

  for i := 1 to ni do
    if i mod 2 = 0  then
    begin
      min:=a[i,1];
      for j := 2 to nj do
        if a[i,j]<min  then
   min:=a[i,j];

    end;
    for k := 1 to nk  do
      b[k]:=min;
end;
//================================================
var a1:Tmatr; b1:Tmas;
l,m,n: integer;
begin
writeln('vvedite razmer');
readln (m,n);
writeln('vvedite matricy');
vvod(a1,m,n);
alg (a1,m,n,b1,l);
vivod(a1,m,n,b1,l);
readln;
end.

Заранее спасибо.

[whatever]

 program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils, math;
  Type Tmatr = array[1..10, 1..5] of integer;
  Tmas=array[1..10] of integer;
  //------------------------------------------------------
  Procedure vvod (var a:Tmatr; ni,nj:integer);
  var i,j:integer;
begin
  for i := 1 to ni  do
    begin
      for j := 1 to nj do
      readln(a[i,j]);
//      readln; //зачем?
    end;
end;
//====================================================
Procedure vivod( a:Tmatr; b:Tmas; var ni,nj,nk:integer);
var i,j,k:integer;
begin
  writeln ('ishodnaya matriza');
  for i := 1 to ni do
  begin
    for j := 1 to nj do
      write{ln}(a[i,j]:5);   //!!!
      writeln ;
  end;

writeln('polychenyi massiv');
for k := 1 to nk do
  write (b[k]:5);
writeln;
end;
//==========================================
Procedure alg(var a:Tmatr; var b:Tmas; VAR nk,ni,nj:integer    );
var i,k,j,min: integer;
begin
  NK:=1;
  for i := 1 to ni do
    if i mod 2 = 0  then
      begin
        min:=a[i,1];
        for j := 2 to nj do
          if a[i,j]<min then
            min:=a[i,j];
        B[NK]:=MIN;
        NK:=NK+1;
      end;
end;
//================================================


var a1:Tmatr; b1:Tmas;
l,m,n: integer;
begin
  writeln('vvedite razmer');
  readln (m,n);
  writeln('vvedite matricy');
  vvod(a1,m,n);
  alg(a1,b1,l,m,n);//!!!
  vivod(a1,b1,m,n,l);
  readln;
end.

Обрати внимание на комментарии, и то, что написано КАПСОМ. И всякие ni, nj и nk лучше делать глобальными переменными. А еще лучше использовать динамические массивы

[Nerotim]

Огромное спасибо

[Nerotim]

А откуда берется ноль в конце выводимого массива?

[whatever]

Сообщение от Nerotim

А откуда берется ноль в конце выводимого массива?

Procedure alg(var a:Tmatr; var b:Tmas; VAR nk,ni,nj:integer    );
var i,k,j,min: integer;
begin
  NK:=0;
  for i := 1 to ni do
    if i mod 2 = 0  then
      begin
        min:=a[i,1];
        for j := 2 to nj do
          if a[i,j]<min then
            min:=a[i,j];
        NK:=NK+1;
        B[NK]:=MIN;
//        NK:=NK+1;
      end;
end;

Так правильнее будет

[Nerotim]

Procedure alg(var a:Tmatr; var b:Tmas; VAR nk,ni,nj:integer    );
var i,k,j,min: integer;
begin
  NK:=1;
  for i := 1 to ni do
    if i mod 2 = 0  then
      begin
        min:=a[i,1];
        for j := 2 to nj do
          if a[i,j]<min then
            min:=a[i,j];
       //   for k := 1 to nk do
     //       b[k]:=min;

Я просто задал массив и вроде все стало ок, ноль пропал)
Спасибо за помощь)