Процедура создания одномерного массива

PROGRAM Lab_1;
  Uses
    Crt;
  Type
    TIndex=1..20;
    TVector=array [TIndex] of Integer;
    TMatrix=array [TIndex,TIndex] of Integer;
  Var
    m,n,i,j,k:TIndex;
    DownB,UpB:Integer;
    A,B:TVector;
    Matrix:TMatrix;
 
  Procedure Pause;
    Var Ch:Char;
  Begin
    While KeyPressed do
      Ch:=ReadKey;
    Repeat
    until KeyPressed
  End;
  
  Procedure PrintMatrix;
  Begin
    For i:=1 to m do begin
      For j:=1 to n do
        Write(Matrix[i,j]:4);
      WriteLn
    end
  End;
  
  Procedure PrintVector(V:TVector; p:TIndex);
  Begin
    For i:=1 to p do
      Write(V[i]:4);
    WriteLn
  End;
  
  Procedure InitM;
  Begin
    CRTWindowSize(80,50);
    Window(1,1,80,50);
    TextBackground(Black);
    TextColor(Green);
    ClrScr;
    
    Write('ÊÎËÈ×ÅÑÒÂÎ ÑÒÐÎÊ(ÄÎ 20) = '); ReadLn(m);
    Write('ÊÎËÈ×ÅÑÒÂÎ ÑÒÎËÁÖÎÂ(ÄÎ 20) = '); ReadLn(n);
    WriteLn;
    Write('ÍÈÆÍßß ÃÐÀÍÈÖÀ = '); ReadLn(DownB);
    Write('ÂÅÐÕÍßß ÃÐÀÍÈÖÀ = '); ReadLn(UpB);
    WriteLn;
    
    Randomize;
    For i:=1 to m do
      For j:=1 to n do
        Matrix[i,j]:=DownB+Random(UpB-DownB+1);
 
    WriteLn('---- ÈÑÕÎÄÍÀß ÌÀÒÐÈÖÀ ----');
    PrintMatrix;
 
    Pause
  End;
  
  Procedure CreatA;
    Var d:Integer;
  Begin
    For j:=1 to n do begin
      d:=UpB;
      For i:=1 to m do
        If (Matrix[i,j] mod 2 = 0) and (Matrix[i,j]<=d) then
          d:= Matrix[i,j];
      A[j]:=d;
    end;
 
    WriteLn;
    WriteLn('---- ÌÀÑÑÈÂ A ----');
    PrintVector(A,n);
    
    Pause
  End;
  
  Procedure CreatB;
  Begin
  End;
  
  Procedure SortA_M;
  Begin
  End;
  
  Procedure SortB_M;
  Begin
  End;
BEGIN
  InitM;
  CreatA;
  CreatB;
  SortA_M;
  SortB_M;
END.

  Procedure CreatA;
    Var d:Integer;
  Begin
    For j:=1 to n do begin
      d:=UpB;
      For i:=1 to m do
        If (Matrix[i,j] mod 2 = 0) and (Matrix[i,j]<=d) then
          d:= Matrix[i,j];
      A[j]:=d;
    end;
 
    WriteLn;
    WriteLn('---- МАССИВ A ----');
    PrintVector(A,n);
    
    Pause
  End;