Вывести массив из чисел, которые встречаются и в массиве а, и в массиве b - Turbo Pascal

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
program array1;
var
a,b:array [1..5] of integer;
c:array [1..10] of integer;
i,j,k,n:integer;
t:boolean;
begin
randomize;
for i:=1 to 5 do  begin
a[i]:=random(10);
write (a[i]:4);
end;
Writeln;
Writeln('===============================');
for i:=1 to 5 do  begin
b[i]:=random(10);
write (b[i]:4);
end;
Writeln;
Writeln('===============================');
n:=0;
for I := 1 to 5  do
  for j := 1 to 5  do
    if a[i]=b[j] then
     begin
     t:=true;
     for k := 1 to N  do
       if A[I]=C[K] then t:=false;
     if t then begin n:=n+1;c[n]:=a[i];end;
      end;
      if n<>0 then
for i:=1 to n do  begin
write (c[i]:4);
end else
Writeln('nepece4eHuu HET!');
readln;
end.

программа выводит массив из чисел, которые встречаются и в массиве а и в массиве b. Объясните пожалуйста вот эту часть кода

                    Листинг программы
                
for k := 1 to N  do
       if A[I]=C[K] then t:=false;
     if t then begin n:=n+1;c[n]:=a[i];end;
      end;

Решение задачи: «Вывести массив из чисел, которые встречаются и в массиве а, и в массиве b»

Листинг программы

if t then begin n:=n+1;c[n]:=a[i];end;

Объяснение кода листинга программы

Переменная t имеет значение true, что означает, что условие истинно.
Переменная n инициализируется значением 1.
В цикле for переменная i принимает значения от 0 до length(a)-1.
Внутри цикла переменная n увеличивается на 1.
Значение a[i] присваивается переменной c[n].
После выхода из цикла переменная n содержит количество элементов, которые были добавлены в массив c.