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

Program L15_1;
Uses Crt;
Type
mas=array[1..20] of real;
Var
b:^mas; {указатель на массив}
n,i,k:integer; {размерность, индекс, количество нулевых элементов массива}
s:real; {сумма неотрицательных элементов массива}
Begin
{заполнение массива}
new(b);
for i:=1 to 20 do
begin
write(‘Введите элемент массива b[’,i,’]’);
readln(b^[i]);
end;
{вычисление суммы и количества}
s:=0; k:=0;
for i:=1 to 20 do
begin
if b^[i]>0 then s:=s+b^[i];
if b^[i]=0 then k:=k+1;
end;
dispose(b); {уничтожение массива}
writeln(‘S= ’,s:8:4,’ k=’,k); {вывод результата}
End.

program L15_1;
 
type
  mas = array of real;
 
var
  b: mas; {указатель на массив}
  k, n, i: integer; {размерность, индекс, количество нулевых элементов массива}
  p, s: real;{сумма неотрицательных элементов массива}
 
begin
  {заполнение массива}
  n := 20;
  SetLength(b, n);
  for i := 0 to n - 1 do
  begin
    write('Введите элемент массива b[', i, ']');
    readln(b[i]);
  end;
  {вычисление суммы и количества}
  s := 0;
  p := 1;
  k := 0;
  for i := 0 to n - 1 do
  begin
    if b[i] > 0 then 
    begin
      s := s + b[i];
      p := p * b[i];
      inc(k);
    end;
  end;
  SetLength(b, 0); {уничтожение массива}
  if k <> 0 then
    writeln('S= ', s:8:4, ' p=', p:8:4) {вывод результата}
  else
    writeln('Нет положительных');
end.