Выдает ошибку:Нельзя преобразовать тип array . of integer к array . of integer

program abc;
 
uses crt;
uses a;
 
type
  Matrix = array[1..6, 1..8] of integer;
  arr = array[1..30] of integer;
var
  doska: Matrix;
  dostypxod: arr;
  i, j, p, d, kb, kch, kdb, kdch, chx, r: integer;
 
function vivod() : integer;
var
  k, b: integer;
begin
  clrscr;
  write('  1 2 3 4 5 6 7 8');
  writeln;
  for k := 1 to 6 do 
  begin
    write(k, ' ');
    for b := 1 to 8 do 
    begin
      write(doska[k, b], ' ');
    end;
    writeln;
  end;
end;
 
function proverka_rubki() : integer;
var
  k, b, r: integer;
begin
  if (kdb = 0) and (kdch = 0)
  then
  begin
    r := 0;
    for k := 1 to 6 do 
    begin
      for b := 1 to 8 do 
      begin
        proverka_rubki_vniz_pravo_op(k, b, chx, r, doska, dostypxod);
        proverka_rubki_vniz_levo_op(k, b, chx, r, doska, dostypxod);
        proverka_rubki_verx_levo_op(k, b, chx, r, doska, dostypxod);
        proverka_rubki_verx_pravo_op(k, b, chx, r, doska, dostypxod);
      end;     
    end;
  end
else
end;
 
begin
  r := 0;
  chx := 1;
  kb := 8;
  kch := 8;
  { for i := 1 to 4 do 
    begin
      doska[1, i * 2 - 1] := 2;
      doska[2, i * 2] := 2;    
      doska[5, i * 2 - 1] := 1;
      doska[6, i * 2] := 1;    
    end;  }
  //doska[3, 4] := 2;
  doska[3, 2] := 1;
  doska[2, 3] := 2;
  vivod();
  repeat
    vivod();
    proverka_rubki();
    writeln(dostypxod[1]);    
    readln;
  until (kb < 1) or (kch < 1);
end.

unit a;
 
interface
 
type
  Matrix = array[1..6, 1..8] of integer;
  arr = array[1..30] of integer;
 
procedure proverka_rubki_vniz_pravo_op(k, b, chx, r: integer; doska: matrix; dostypxod: arr);
procedure proverka_rubki_vniz_levo_op(k, b, chx, r: integer; doska: matrix; dostypxod: arr);
procedure proverka_rubki_verx_levo_op(k, b, chx, r: integer; doska: matrix; dostypxod: arr);
procedure proverka_rubki_verx_pravo_op(k, b, chx, r: integer; doska: matrix; dostypxod: arr);
implementation
 
procedure proverka_rubki_vniz_pravo_op(k, b, chx, r: integer; doska: matrix; dostypxod: arr);
begin
  if ((doska[k, b] = chx) or (doska[k, b] = chx + 2)) and (k < 5) and (b < 7)
        then
  begin
    if (doska[k + 1, b + 1] <> chx) and (doska[k + 1, b + 1] <> 0) and (doska[k + 2, b + 2] = 0)  
    then begin
      if r > 0 
            then
      begin
        r := r + 1;
      end
            else
      begin
        dostypxod[1] := k * 1000 + b * 100 + (k + 2) * 10 + b + 2;
        r := 1;
      end;
    end
    else writeln(k, b);
  end;  
end;

//type
//  Matrix = array[1..6, 1..8] of integer;
//  arr = array[1..30] of integer;

uses arrays;
uses graphabc;
begin
  WriteLn('Абалдеть! Да?');
end.