Найти сумму квадратов элементов массива, расположенных после первого положительного числа

Var A:array[1..100] of integer;
    i,s,j,n:integer;
Begin
    write('Введите размерность: ');readln(n);
    j:=0;
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
      if (j=0)and(A[i]>0) then j:=i;
    End;
    s:=0;
    writeln;
    if j>1 then
    Begin
      For i:=1 to j-1 do
       s:=s+sqr(A[i]);
      writeln('Сумма: ',s);
    End
    else writeln('Нету положительных или он первый в массиве');
    readln;
End.

const
  nmax=100;
var
  a: array[1..nmax] of integer;
  n,i,sum: integer;
  boo: boolean;
begin
  boo:=false;
  randomize;
  writeln('Введите количество элементов n: ');
  readln(n);
  writeln('Массив:');
  for i:=1 to n do
  begin
    a[i]:=random(19)-9;
    write(a[i],' ');
    if boo then sum:=sum+sqr(a[i]);
    if a[i]>0 then boo:=true;
  end;
  writeln('Сумма квадратов после первого положительного = ',sum);
  readln;
end.

Var A:array[1..100] of integer;
    i,s,j,n:integer;
Begin
    write('Введите размерность: ');readln(n);
    j:=0;
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
      if (j=0)and(A[i]>0) then j:=i;
    End;
    s:=0;
    writeln;
    if j<n then
    Begin
      For i:=j+1 to n do
       s:=s+sqr(A[i]);
      writeln('Сумма: ',s);
    End
    else writeln('Нету положительных или он последний в массиве');
    readln;
End.