Сравнение элементов массивов с использованием процедуры

uses crt;
const max=20;
type mas=array[1..max] of integer;
     matr=array[1..max] of mas;
     vek=array[1..max] of boolean;
procedure Vector(mt:matr;v1:mas;var v2:vek;x:byte);
var i,j,k,p:byte;
begin
for i:=1 to x do
 begin
  k:=0;
  for j:=1 to x do
  if mt[i,j]=v1[i] then
    begin
     k:=1;
     break;
    end;
  if k=0 then v2[i]:=true else v2[i]:=false;
 end;
for i:=1 to x do
write(v2[i],' ');
end;
var a:matr;
    b:mas;
    c:vek;
    n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы и векторов до ',max,' =');
readln(n);
until n in [1..max];
writeln('Матрица A:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Вектор В:');
for i:=1 to n do
 begin
  b[i]:=random(10);
  write(b[i],' ');
 end;
writeln;
writeln;
writeln('Вектор C:');
Vector(a,b,c,n);
readln
end.