Напишите программу, которая считывает с клавиатуры n чисел и затем выводит на экран сумму и среднее арифметическое отрицательных чисел. в паскаль

Var i,n,nmb: integer;
    dg,sm: real;
begin
  sm:=0;  nmb:=0;
  write('n = ');
  readln(n);
  write('числа через пробел: ');
  for i:=1 to n do
  begin
    read(dg);
    if dg<0 then
    begin
      sm:=sm+dg;
      nmb:=nmb+1;
    end;  
  end;
  writeln('сумма отрицательных чисел = ',sm);
  writeln('среднее арифметическое = ',sm/nmb);
end.