проверьте программку пожалуйста

1.В одномерном массиве, состоящем из n вещественных элементов определить какие числа встречаются более двух раз

program Project214;

var a:array[1..20] of integer;
i,j,n,k: integer; s,sr:real;

begin
k:=0;
writeln ('vvedite n, n<=20'); readln(n);
for i:= 1 to n do
begin a:=random(20)-10;
write(a:4);
end;
for i:= 1 to n do
for j:=1 to n do
if a = a[j] then inc(k);
if k>=2 then write (a)else writeln (' net povtorayshihsya');
readln;
end.

она почему-то не работает, цикл не выполняется