Задание по Free Pascal. Помогите, пожалуйста:
1. дан массив целых чисел а1,…, аn. Определить количество чисел, входящих в массив по одному разу.

Program LP;
Uses CRT;
Const n=15;
Var A:array [1..n] of integer;
K,L,i: integer;
BEGIN
clrscr;
writeln ('ђ Ў®вг ўлЇ®«-Ё«:');
writeln ('И?в㤥-в ЈагЇЇл ЏѓИ?¤-13');
writeln ('Њгав Є®ў Ђ«ҐЄбҐ© ‚ «Ґа쥢Ёз');
readln;
clrscr;
randomize;
for i:=1 to n do
A[i]:=random(50)-25;
writeln ('Массив А:');
for i:=1 to n do
write (A[i]:5);
writeln;
K:=0;
for i:=1 to n do
if A[i+1] <> A[i] then K:=K+1;
write ('количество чисел, входящих в массив по одному разу равно ', K);
readkey;
End.

я примерно представляю, что я должен сделать, но не могу понять, как проверить не только один предыдущий элемент, а все предыдущие

и чем Free Pascal вообще отличается от турбо?