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

Program p1;

const
  MaxN = 1000;

var
  m: array [1 .. MaxN] of real;
  m2: array [1 .. MaxN] of real;
  i, k, n: integer;
  summa: real;

begin
  writeln('Vvedite N (razmernosti massiva):');
  readln(n);
  writeln('Vvedite sam massiva(elementy ukazati cherez probel):');
  for i := 1 to n do
    read(m[i]);
  writeln;
  k := 0;
  for i := 1 to n do
    if m[i] > 0 then
    begin
      inc(k);
      m2[k] := m[i];
    end;
  for i := 2 to k - 1 do
    summa := summa + m2[i];
  writeln('REZULTAT= ', summa:3:0);

  readln;

end.