Найти все повторяющиеся элементы в массиве, предшествующие последнему отрицательному

var
j,n,k,i,otr:integer;
a,b:array[1..100]of integer;
begin
write('Введите размер массива от 1 до 100:=');
readln(n);
write('Эл-ты массива а:');
for j:=1 to n do
begin
write('a[',j,']=');
readln(a[j]);
end;
writeln('Исходный массив а:');
for j:=1 to n do
write (a[j]);
writeln;
k:=0;
otr:=0;
for j:=1 to n-1 do
for i:=j+1 to n do
if a[j]=a[i] then k:=1;
// как вывести эти повторяющиеся элементы?
if k=1 then  write(' Повторяющиеся элементы: );
if k=0 then write('В массиве нет повторяющихся эл-ов');
readln;
end.

Otr:=0;
for i:=N to 1 do
if A[i]<0 then
Otr:=i;

                        const Nmass=15;
type T2m = array[1..Nmass] of integer;
var A:T2m;
i,l,n,z:byte;
k:integer;
begin
writeLn('Vvod N');
readLn(N);
writeLn('Vvod massiva A:');
for i:=1 to N do readln(A[i]);
writeLn('Massiv A');
for i:=1 to N do
write(A[i]:5); writeln; z:=0;
for i:=n downto 1 do
begin if a[i]<0 then z:=i; end;
if z<> 0 then begin
for i:=1 to z-1 do begin
l:=i;
k:=a[i];
for i:=l+1 to z-1 do begin
if k=a[i] then writeln('obnarujen povtor elementa ',k); end; i:=l;
end; end
else writeln('povtorenyi nets'); end.