Определить, сколько чисел входит ровно дважды в последовательность а1,а2,...,аm

[milton]

Задача звучит так: "Определить, сколько чисел входит ровно дважды в последовательность а1,а2,...,аm и входит ровно трижды в b1,b2,...,bn". M и n заданы, не в них проблема. Я сумел выполнить задачу только по отдельности для каждого массива, не знаю, как правильно задать проверку на равенство чисел, удовлетворяющих условиям. Помогите, пожалуйста.

[eoln]

const
  n = 5; m = 10;
var
  mas1, tmp1: array[1..n] of byte;
  mas2, tmp2: array[1..m] of byte;
  i, j, k, a, b: byte;
  t: boolean;
begin
  writeln('mas1');
  for i := 1 to n do readln(mas1[i]);
  writeln('mas2');
  for i := 1 to m do readln(mas2[i]);

  //для первой последовательности
  for i := 1 to n do
  begin
    k := 1;
    for j := 1 to n do
    if (mas1[i] = mas1[j]) and (i <> j) then inc(k);//ищем совпадения
    if k = 2 then
    begin
      t := true;
      for j := 1 to a do if mas1[i] = tmp1[j] then
      //чтоб одно и то же число несколько раз не учитывать
      begin
        t := false;
        break;
      end;
      if not t then continue;
      inc(a); //количестно найденных повторов
      tmp1[a] := mas1[i] //запоминаем число встречающееся к=2 раз
    end;
  end;

  //аналогично для второй последовательности
  for i := 1 to m do
  begin
    k := 1;
    for j := 1 to m do
    if (mas2[i] = mas2[j]) and (i <> j) then inc(k);
    if k = 3 then
    begin
      t := true;
      for j := 1 to a do if mas2[i] = tmp2[j] then
      begin
        t := false;
        break;
      end;
      if not t then continue;
      inc(b);
      tmp2[b] := mas2[i]
    end;
  end;

  writeln('result');
  for i := 1 to a do
  for j := 1 to b do
  if tmp1[i] = tmp2[j] then write(tmp1[i]:2);
  readln
end.

[milton]

Огромное человеческое спасибо!

[milton]

А такой вопрос, ведь изначально все переменные предполагаемо равны нулю, тогда как выполняется команда for j := 1 to a do if mas1[i] = tmp1[j] then если а=0 изначально? а увеличение а лишь в цикле, войти в который можно только через эту строку...

[eoln]

for j := 1 to a do if mas1[i] = tmp1[j] находится внутри цикла

  //для первой последовательности
  for i := 1 to n do
  begin
    k := 1;
    ...

и повторяется N раз, при выполнении определённых условий переменная А увеличивается. В первый раз цикл for j := 1 to a do if mas1[i] = tmp1[j] ... не выполнится ниразу.