Помогите решить задачку в паскале.Даны три массива:A = 17.2, 9.3, 14.5, -11.7,

Type
  V = array of real;

function SumPos(a:V): real;
var
  i: integer;
  s: real;
begin
  s := 0;
  for i := 0 to Length(a, 0) - 1 do
    if a[i] gt; 0 then s := s + a[i];
  Result := s
end;

var
  A, B, C: V;

begin
  A := new real[10] (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3);
  B := new real[12] (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4);
  C := new real[8] (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3);
  writeln('Сумма положительных частей массива А ',SumPos(A));
  writeln('Сумма положительных частей массива B ',SumPos(B));
  writeln('Сумма положительных частей массива C ',SumPos(C));
end.

Тестовый прогон:

Сумма положительных элементов массива А 63.5
Сумма положительных частей массива B 70.3
Сумма положительных элементов массива C 27.2

function subprogram(a: array of real): real;
begin
  foreach obj: real in a do
    if (obj gt; 0) then
      result += obj;
end;

var
  a: array of real := (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3);
  b: array of real := (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4);
  c: array of real := (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3);

begin
  writeln('a =gt; ', subprogram(a));
  writeln('b =gt; ', subprogram(b));
  writeln('c =gt; ', subprogram(c));
end.