Процедуры, поиск ошибки.

program vosem;
uses crt;
const n=100;
type m1 = array[1..n, 1..n] of integer;
     m2 = array[1..n] of integer;
var r,x,y: integer;
    A: m1;
    B: m2;
    C: m2;
procedure randomik; {Prisvaivaet sluchainie znacheniya}
    var i, j: integer;
    begin
       randomize;
       for i:=1 to r do
          for j:=1 to r do A[i,j]:=random(40)-20;
    end;
procedure BC;     {proverya na chtnost i nechetnost', zapolnyat B i C}
    var i, j: integer;
    begin
        for i:=1 to r do
          for j:=1 to r do
            begin
                if (A[i,j] mod 2) = 0 then
                  begin
                      A[i,j]:=B[x];
                      x:=x+1;
                  end;
                if ((A[i,j] mod 2) = 1) or ((A[i,j] mod 2) = -1) then
                  begin
                      A[i,j]:=C[y];
                      y:=y+1;
                  end;
            end;
    end;
procedure vivod(D: m2; var t: integer);  {vivod massiva}
    var i: integer;
    begin
 
        for i:=1 to t do write(D[i]:5);
        writeln;
    end;
 
begin
    clrscr;
    write('vvedite razmer massiva ');
    readln(r);
    randomik;
    x:=1; y:=1;
    BC;
    vivod(b, x);
    vivod(c, y);
    readln;
end.

program vosem;
uses crt;
const n=100;
type m1 = array[1..n, 1..n] of integer;
     m2 = array[1..n] of integer;
var i,j,r,x,y: integer;
    A: m1;
    B: m2;
    C: m2;
procedure randomik(r:integer; var a: m1); {Prisvaivaet sluchainie znacheniya}
    var i, j: integer;
    begin
       randomize;
       for i:=1 to r do
          for j:=1 to r do A[i,j]:=random(40)-20;
    end;
    
 procedure BC(a:m1; var b:m2 ; var c:m2; var x:integer; var y: integer);     {proverya na chtnost i nechetnost', zapolnyat B i C}
    var k,i, j: integer;
    begin
 
        for i:=1 to r do
          for j:=1 to r do
            begin
                if (A[i,j] mod 2) = 0 then
                  begin
                      B[x]:=A[i,j];
                      x:=x+1;
                  end else
                                begin
                   C[y]:=A[i,j];
                      y:=y+1;
                  end;
            end;
    end;
    
    begin
    clrscr;
    write('vvedite razmer massiva ');
    readln(r);
    randomik(r,a);
                  for i:=1 to r do
                  begin
                  for j:=1 to r do
                  write(a[i,j], '   '); writeln; end;
 
    x:=1; y:=1;
    BC(a,b,c,x,y);
    writeln;
 
    for i:=1 to x do
    write(b[i],'  ');
    
    writeln;
    writeln;
    
    for i:=1 to y do
    
    write(c[i],'   ' ); end.