Pagalba del fps uzdavinelio

Sveiki, gal galit kas nors parasyti programa?

Sveikuju skaiciu masyva sudaro n elementu, elementu reiksmes gali kartotis. Parasykite programa, kuri is sio masyvo sukurtu kita masyva, sudaryta tik is nepasikartojanciu elementu.

program HelloWorld;
Const n = 20;
var 
myArray : Array[1..n] of Integer;
myArray2 : Array[1..n] of Integer;
i, j, index : Integer;
exist : Boolean;
begin
 Randomize;

 for i := 1 to n do begin
 	myArray[i] := Random(10)+1;
 end;

 for i := 1 to n-1 do
 	write(myArray[i], ', ');
 writeln(myArray[n]);

 index := 1;
 exist := false;
 for i := 1 to n do begin
 	for j := 1 to n do 
 		if myArray[i]<>myArray2[j] then exist := false
 		else begin 
 			exist := true;
 			break;
 		end;
 	if not exist then begin
 		myArray2[index]:=myArray[i];
 		inc(index);
 	end;
 end;

 i := 1;
 while myArray2[i+1] <> 0 do begin
 	write(myArray2[i], ', ');
 	inc(i);
 end;
 writeln(myArray2[i]);
end.

Aciu