В массиве М(6) найти количество и среднее арифметическое положительных элементов — Pascal(Паскаль)

var
  Mas: array of real;
  Count, i, k: Cardinal;
  Sum: real;

begin
  // ввод
  Write('Длина массива?');
  Readln(Count);
  Setlength(Mas, Count);
  For i := 0 to Count - 1 do
  begin
    Readln(Mas[i]);
  end;
  // Решение
  Sum := 0;
  k := 0;
  For i := 0 to Count - 1 do
  begin
    If Mas[i] > 0 then
      Sum := Sum + Mas[i];
    Inc(k);
  end;
  Writeln('Kol-vo=', k);
  Writeln('Sred. Arif.=', Sum / k);

end.