Дана последовательность, состоящая из n вещественных чисел. Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных чисел — Pascal(Паскаль)

uses crt;

var
  m, k, n, i: integer;
  s1, s2, a, p, q: real;

begin
  writeln('Введите кол-во чисел в последовательности');
  readln(n);
  k := 0;
  m := 0;
  s1 := 0;
  s2 := 0;
  for i := 1 to n do
  begin
    writeln('введите 1-е число в посл-ти');
    readln(a);
    if a > 0 then
    begin
      k := k + 1;
      s1 := s1 + a;
    end;
  else
  begin
    m := m + 1;
    s2 := s2 + a;
  end;
end;
p := s1 / k;
q := s2 / m;
writeln(p);
writeln(q);
readln;

end.