Помогите модифицировать программку. Необходимо сделать так чтобы программка еще выискала номер

Так она же его обретает... А еще обретает сумму отрицательных частей и количество положительных, наименьших данного

Program first;

uses Crt;

const N=1000;

var
  A:array[0..N] of integer;
  I,K,Z,S,R,P:integer;
 
begin
  ClrScr;
  Randomize;
  Print('Введите количество частей массива:'); Readln(R);
  Println('Значение частей массива');
  for I:=1 to R do begin
    A[I]:=Random(10)-3;
    Write(A[I]:3)
    end;
  Println();
 
  начало блока вычисления S - суммы отрицательных частей
    и K - количество положительных, наименьших данного Z (число "А")
  Print('Введите число А:'); Read(Z);
  S:=0; K:=0;
  for I:=1 to R do begin
    if A[I] lt; 0 then S:=S+A[I];
    if (A[I] gt; 0) and (A[I] lt; Z ) then K:=K+1
    end;
  Writeln('Сумма отрицательных частей ',S);
  Writeln('Количество положительных частей, наименьших заданного ',K);
  конец блока
 
  начало блока нахождения номера заключительной пары
    примыкающих элементов с различными знаками
  P:=1;
  for i := 1 to n-1 do if A[I]*A[I+1]lt;0 then P := i;
  if Pgt;0 then
    Writeln('Номер заключительней пары примыкающих элементов с разными знаками: ', P)
  else
    Writeln('Массив не содержит элементов с различными знаками');
  конец блока
 
end.

Пример
Введите количество частей массива: 12
Значение элементов массива
  5  5 -1 -2 -1  3  0 -3  4 -1  6  5
Введите число А: 6
Сумма отрицательных частей -8
Количество положительных частей, наименьших данного 5
Номер последней пары примыкающих частей с различными знаками: 10