пересечение массивов на паскале

[SeReGa48]

Даны 2 целочисленных массива. Найти элементы,входящие как в первый ,так и во второй массив,но без повторов и вывести их на экран в виде третьего массива.

program massiv;


  var a:array [1..5] of integer;
      b:array [1..5] of integer;
      c:array [1..1] of integer;
      flag:boolean;
      i,j,k,e,l:integer;

      begin
      k:=0;
      writeln('Vvedite massiv a');
      for i:=1 to 5 do
      readln(a[i]);
      writeln('Vvedite massiv b');
      for i:=1 to 5 do
      readln(b[i]);

       for j:=1 to 5 do
        begin

          for i:=1 to 5 do
           begin
            if a[j]=b[i] then

             begin
              flag:=true;


               for l:=1 to k do

                 if c[l]=a[j] then flag:=false;


            if flag then
             begin
              k:=k+1;
              c[k]:=a[j];
             end;
             end;
           end;
        end;




         writeln('Peresichenie');
          for i:=1 to 5 do
          writeln(c[i]);
        end.

нашел подобную программу на С++ но не могу переписать под паскаль выдает не то, помогите пожалуйста
ссылка на программу на С http://programmersforum.ru/showthread.php?t=28033

[Grag]

Что тут переливать из пустого в порожнее? Ее проще с нуля написать, там делать нечего.

[Филантроп]

(*************************************************************
 *                   Пересечение 2 массивов                  *
 *************************************************************)
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.