Даны натуральное число n, целые числа a1,…, a25, b1,…, bn.
Среди a1,…, a25 нет повторяющихся чисел, нет их и среди b1,…, bn.
Построить пересечение последовательностей a1,…, a25 и b1,…, bn- Pascal(Паскаль)

Uses crt;

const
  m = 25;

var
  a, b: array [1 .. 100] of integer;
  i, j, n, v, x: integer;
  f: boolean;

begin
  clrscr;
  randomize;
  writeLn('Массив A:');
  v := 1;
  for i := 1 to m do
  begin
    repeat
      f := false;
      x := random(100);
      for j := 1 to v do
        if a[j] = x then
          f := true;
    until f = false;
    a[i] := x;
    v := v + 1;
    write(a[i], ' ');
  end;
  writeLn;
  repeat
    Write('Размер массива В от 1 до 100 n=');
    ReadLn(n);
  until n in [1 .. 100];
  writeLn('Массив B:');
  v := 1;
  for i := 1 to n do
  begin
    repeat
      f := false;
      x := random(100);
      for j := 1 to v do
        if b[j] = x then
          f := true;
    until f = false;
    b[i] := x;
    v := v + 1;
    write(b[i], ' ');
  end;
  writeLn;
  writeLn('Пересечение последовательностей A*B:');
  f := false;
  for j := 1 to n do
    for i := 1 to m do
      if b[j] = a[i] then
      begin
        f := true;
        write(b[j], ' ');
      end;
  if not f then
    write('Общих элементов нет!');
  ReadLn

end.