[طلب مساعدة] في الـ pascal عاجل !

[prodz]

السلام عليكم
طلب مساعدة في الباسكال بالتحديد intersection des deux fichiers


On considère deux ensembles d’entiers représentés dans des fichiers. Chaque entier n’apparaît
qu’en un exemplaire dans une séquence. Écrire un programme pascal qui produit un fichier contenant
l’intersection des deux ensembles.

Exemple :

fichier 1 : 10 5 12 7 19 28 6
fichier 2 : 5 14 19 2 10 6 29 3 7
fichier résultat : 10 5 7 19 6

[King Soft]

وعليكم السلام اخي


Program Fichier;
{$APPTYPE CONSOLE}
var A,B,R:File of integer;
n,i,x,j,y,k:integer;
begin
Writeln('Taper Le nombre de Chifre =');
Read(n);
{Remplissage de Fichier A }
Assign(a,'C:\a.dll');
rewrite(a);
Write('Entre le Chifre de A :');
for i:=1 to n do
begin
Read(x);
Write(A,X);
end;
Close(a);
{Remplissage de Fichier b }
Assign(b,'C:\b.dll');
rewrite(b);
Write('Entre le Chifre de B :');
for i:=1 to n do
begin
Read(x);
Write(B,X);
end;
Close(b);
{ La Comparison Etle Remplissage de Fichier R }
assign(R,'C:\R.dll');
Rewrite(R);
Reset(a);Reset(b);
k:=-1;
For i:= 1 to n do
begin
Read(A,x);
Seek(B,0);
for j:=1 to n do
begin
Read(B,y);
if X=Y then
begin
k:=k+1;
Write(R,Y);
end;
end; end;
{L'affichage de la Ruseltat }
Seek(R,0);
for i:=0 to k do
begin
read(R,x);
Write(x:6);
end;
Close(a);Close(b);Close(R);
Readln;Readln; Readln;
end.

بالتوفيق