Даны 3 массива: A(10), B(20), C(30). Для каждого массива найти разность сумм положительных элементов с четными

program pr;
 
const
  n = 10;
  m = 20;
  l = 30;
 
type
  arr = array  of integer;
 
var
  a, b, c: arr;
  i, av, avv, avvv: integer;
 
procedure calc(var x: arr;  const k: integer; var f: integer);
var
  sum1, sum2, j: integer;
begin
  sum1 := 0;
  sum2 := 0;
  for j := 0 to k - 1 do
  begin
    if (x[j] > 0) and (j mod 2 = 0) then
      sum1 := sum1 + x[j];
    if (x[j] > 0) and (j mod 2 <> 0) then
      sum2 := sum2 + x[j];
  end;
  writeln;
  f := sum2 - sum1;
end;
 
begin
  setlength(a, n);
  for i := 0 to n - 1 do
  begin
    a[i] := random(21)-10;                  // диапазон заполнения массивов ставь какой хочешь 
    write(a[i]:3);
  end;
  writeln;
  setlength(b, m);
  for i := 0 to m - 1 do
  begin
    b[i] := random(21)-10;
    write(b[i]:3);
  end;
  writeln;
  setlength(c, l);
  for i := 0 to l - 1 do
  begin
    c[i] := random(21)-10;
    write(c[i]:3);
  end;
  calc(a, n, av);
  writeln;
  writeln('Разность сумм положительных элементов  с четными и нечетными индексами массива А: ', av);
  calc(b, m, avv);
  writeln;
  writeln('Разность сумм положительных элементов  с четными и нечетными индексами массива B: ', avv);
  calc(c, l, avvv);
  writeln;
  writeln('Разность сумм положительных элементов  с четными и нечетными индексами массива C: ', avvv);
end.