Даны два целых числа A и B (A<B).Найти и вывести все отрицательные числа,их сумму и их количество от A до B включительно.Записать код и блок схему(Pascal)

var a,b,sum,i,k : integer;
begin
readln(a);
readln(b);
k:= 0;
sum := 0;
i := 0;
For i := a to b do begin
sum = sum + i;
write(i, ' ')
k = k + 1
end;

writeln('Сумма = ', sum);
written('Количество = ', k);

//Часть твоего ответа, это только код.