Лаба по масивам/// запутался ((

Question

Задали массив чисел A (n) , n ≤ 500. Разработать программу, которая вычисляет сумму всех чисел, которые повторяются, и произведение всех чисел, которые не повторяются 
///Задайте значение действительным величинам произвольным образом в диапазоне от 0 до 100///

program lab5; 
 
{$APPTYPE CONSOLE} 
 
uses 
 SysUtils; 
 
Var 
 a : array [1..500] of integer; 
 i,n,k,j,g: integer; 
 z:boolean; 
begin 
 z:= true; 
 while (z) do begin

writeln(' vvedite kol-vo elementov maciva= '); 
 readln(n); 
 if (n<501) then 
 begin 
 z:= false; 
 randomize; 
 k := random (100); 
 for i:=k to n do 
 read(a); 
 writeln; 
 for i:=k to n do 
 write(a,' '); 
 writeln; 
 for i:=1 to n do 
 begin 
 g:=0; 
 for j:=1 to n do 
 if a=a[j]then inc(g); 
 if g=1 then write (a,' ');

end 
 else 
 z:= true; 
 end 
 readln; 
 
end.

Пётр Соколов · Accepted Answer

зачем рандом на к?

Рамаз · Answer

Так и лоб расшибить ведь можно... .
Задай в программе для начала массив-константу из 5-10 элементов и прогони в пошаговой отладке. Отрихтуй алгоритм и только после этого рандомизируй.