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

Задали массив чисел 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.