Найти количество элементов, которые одинаковы в двух массивах

uses crt;
const n=5;
type mas=array [1..n] of integer;
 
procedure vvod(var a:mas);
var i:byte;
begin
  for i:=1 to n do begin
    write('[',i,'] = ');
    readln(a[i]);
  end;
end;
 
procedure vivod(a:mas);
var i:byte;
begin
  for i:=1 to n do write(a[i],' ');
  writeln;
end;
 
var i,j,k:byte;
    a,b:mas;
begin
  clrscr; k:=0;
  writeln('Первый массив:'); vvod(a);
  clrscr;
  writeln('Второй массив:'); vvod(b);
  clrscr;
  vivod(a); vivod(b);
  for i:=1 to n do
    for j:=1 to n do
      if a[i]=b[j] then k:=k+1;
  writeln('K = ',k);
  readkey;
end.

uses crt;
type mas=array [1..10] of integer;
 
procedure vvod(var a:mas);
var i,n:integer;
begin
WriteLn('Введите n');
ReadLn(n);
  for i:=1 to n do begin
    write('[',i,'] = ');
    readln(a[i]);
  end;
end;
 
procedure vivod(a:mas);
var i,n :integer;
begin
  for i:=1 to n do write(a[i],' ');
  writeln;
end;
 
var i,j,k,n:integer;
    a,b:mas;
begin
  clrscr; k:=0;
  writeln('Первый массив:'); vvod(a);
  clrscr;
  writeln('Второй массив:'); vvod(b);
  clrscr;
  vivod(a); vivod(b);
  for i:=1 to n do
    for j:=1 to n do
      if a[i]=b[j] then k:=k+1;
  writeln('K = ',k);
  readkey;
end.

const
  n_max = 100;
 
type
  mas = array [1..n_max] of integer;
 
procedure vvod(var a: mas; n: integer);
var
  i: byte;
begin
  for i := 1 to n do 
  begin
    write('[', i, '] = ');
    readln(a[i]);
  end;
end;
 
procedure vivod(a: mas; n: integer);
var
  i: byte;
begin
  for i := 1 to n do 
    write(a[i], ' ');
  writeln;
end;
 
var
  n, i, j, k: byte;
  a, b: mas;
 
begin
  k := 0;
  write('Размерность массива: ');
  readln(n);
  writeln('Первый массив:');
  vvod(a, n);
  writeln('Второй массив:');
  vvod(b, n);
  vivod(a, n);
  vivod(b, n);
  for i := 1 to n do
    for j := 1 to n do
      if a[i] = b[j] then 
        k := k + 1;
  writeln('K = ', k);
end.