В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) номер максимального по модулю элемента массива; 2) сумму элементов массива, расположенных после первого положительного элемента — Pascal(Паскаль)

Program xa;
Var
 a:array[1..100] of real;
 i,n,k:integer;
 max:real;
Begin
 Writeln('BBedute KoLu4ectBo eLemeHToB maccuBa');
 readln(n);
 Writeln('BBedute camu eleMeHTbl');
 for i:=1 to n do
 begin
  Write('A[' ,i, ']=');
  readln(a[i])
 end;
 max:=abs(a[1]);
 k:=1;
 for i:=2 to n do
  if abs(a[i])>max then
  begin
   k:=i;
   max:=abs(a[i])
  end;
 Writeln('HoMeP elemeHTa = ' ,k);
 readln
end.

Program xa;
Var
 a:array[1..100] of real;
 i,n,k:integer;
 s:real;
 p:boolean;
Begin
 Writeln('BBedute KoLu4ectBo eLemeHToB maccuBa');
 readln(n);
 Writeln('BBedute camu eleMeHTbl');
 for i:=1 to n do
 begin
  Write('A[' ,i, ']=');
  readln(a[i])
 end;
 p:=true;
 i:=1;
 k:=0;
 while (p) and (i<=n) do
  if a[i]<0 then
  begin
   k:=i;
   p:=false
  end
  else
   inc(i);
 s:=0;
 if k<>0 then
  for i:=k+1 to n do
   s:=s+a[i];
 Writeln('Cymma = ' ,s:6:2);
 readln
end.