Образовать третий массив из элементов встречающихся в обоих массивах — Pascal(Паскаль)

uses crt;

var
  m, k, i, l, c: integer;
  a: array [1 .. 10000] of integer;
  b: array [1 .. 10000] of integer;
  ab: array [1 .. 10000] of integer;

begin;
  clrscr;
  writeln('Введите размер массива a(m)');
  readln(m);
  writeln('Введите размер массива b(k)');
  readln(k);
  clrscr;
  writeln('Введите элементы массива a(m)');
  FOR i := 1 TO m do
  begin
    readln(a[i]);
  end;
  writeln('Введите элементы массива b(k)');
  FOR i := 1 TO m do
  begin
    readln(b[i]);
  end;
  FOR i := 1 TO m do
  begin
    FOR l := 1 TO k do
    begin
      IF a[i] = b[l] THEN
      begin
        c := c + 1;
        ab[c] := a[l];
      end;
    end;
  end;
  clrscr;
  writeln('Массив образованный из одинаковых элементов');
  FOR i := 1 TO c do
  begin
    writeln(ab[i]);
  end;

end.