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

Uses crt;
Const n=10;
Type mas=array[1..n]of real;
Var m:mas;i,v,k1,k2:integer;suma:real;
 
Procedure input1(var a:mas);
Begin
 for i:=1 to n do
  begin
   writeln('Vvedite element ',i);
   read(a[i]);
  end;
End;
 
Procedure input2(var a:mas;d1,d2:integer);
Begin
 if (d1<1)or(d1>n)or(d2<d1)or(d2>n) then
  begin writeln('Neverno zadan diapazon');halt; end
  else
   begin
    randomize;
    for i:=d1 to d2 do a[i]:=random(300)/10-20;
   end;
End;
 
Procedure output(var a:mas);
Begin
 for i:=1 to n do  write(i:5);
 writeln;
 for i:=1 to n do  write(a[i]:5:1);
End;
 
Procedure sum(var a:mas; var s:real);
Begin
 s:=0;i:=n;
 while a[i]>0 do
  begin
   s:=s+a[i];
   i:=i-1;
  end;
 End;
 
Begin
 clrscr;
 writeln('Kak vvodit elementi?');
 writeln('1 - vruchnuyu');
 writeln('2 - sluchsynie chisla v diapazone');
 repeat
  read(v);
  if not((v=1)or(v=2)) then writeln('Vvedite 1 ili 2');
 until (v=1)or(v=2);
 if v=2 then
  begin
   writeln('Vvedite nomer pervogo i poslednego elementa diapazona, ne bolshe ',n);
   read(k1,k2);
   input2(m,k1,k2);
  end
  else input1(m);
 output(m);
 writeln;
 sum(m,suma);
 writeln('Suma elementov posle poslednego otricatelnogo=',suma);
End.