Составить программу ввода отрицательных чисел, до тех пор, пока не будет введено неотрицательное. Посчитать среднее арифметическое — Pascal(Паскаль)

var
 a,kol:integer;
 sum,sr:real;
begin
 kol:=0;
 sum:=0;
while a>=0 do
begin
 readln(a);
 sum:=sum+a;
 inc(kol);
end;
 sr:=sum/kol;
 writeln(sr:1:2);
end.

 var
 a,kol:integer;
 sum,sr:real;
begin
 kol:=0;
 sum:=0;
while a<=0 do
begin
 readln(a);
 if a<0 then
 begin
 sum:=sum+a;
 inc(kol);
 end;
end;
if kol<>0 then
begin
 sr:=sum/kol;
 writeln(sr:1:2)
end
 else writeln('Нет отрицательных чисел');
end.