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

Question

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

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.

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

Тимур · Accepted Answer

Она не работает, потому что: 
1. Слишком большой random, нет повторяющихся элементов. 
2. При таком алгоритме надо проверять не k>=2, а просто k>2. 
3. В цикле нет обнуления k. 
 
А вообще молодец.