Напишите программу, которая считывает с клавиатуры 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
    begin
      sm:=sm+dg;
      nmb:=nmb+1;
    end;  
  end;
  writeln(сумма отрицательных чисел = ,sm);
  writeln(среднее арифметическое = ,sm/nmb);
end.