Здрасти!!!Помогите пожалуйста написать программу в ПАСКАЛЕ!____________задание во

Const
n=10;
var
j,i:integer;
a:array[1..n]of real;
s:real;     
    begin         
       for i:=1 to n do 
             readln(a[i]);         
                writeln;         
                  writeln('ARRAY: ');         
                        for i:=1 to n do             
                            write(a[i]:8:2);             
j:=1;       i:=1;     
      while (a[i]gt;0)and(ilt;n) do         
              begin           
                  i:=i+1;           
                  j:=i;       
              end;     
    if jlt;gt;n then     
        begin     
            for i:=j+1 to n do         
                  s:=s+abs(a[i]);         
            writeln;     
            writeln(s:8:2);     
       end     
   else     
       writeln('единственный отрицательный - заключительный элемент')   
  end.