Дан массив А(10).в массиве найти сумму элементов после первого отрицательного и сумму элементов до него — Pascal(Паскаль)

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,i1:byte;
    s:integer;
begin
clrscr;
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
i1:=0;
for i:=1 to n do
if a[i]<0 then
 begin
  i1:=i;
  break;
 end;
if i1=0 then write('В массиве нет отрицательных элементов!')
else
 begin
  s:=0;
  for i:=1 to i1-1 do
  s:=s+a[i];
  writeln('Сумма до первого отрицательного=',s);
  s:=0;
  for i:=i1+1 to n do
  s:=s+a[i];
  writeln('Сумма после первого отрицательного=',s);
 end;
readln
end.