Ввести с клавиатуры значения n вещественных элементов массива с (n = 10), посчитать количество отрицательных и сумму положительных элементов. Результаты вывести на экран — Pascal(Паскаль)

var i,kol:byte;
     a,sum:real;
begin
kol:=0;sum:=0;
for i:=1 to 10 do
 begin
  readln(a);
  if a<0 then kol:=kol+1;
  if a>0 then sum:=sum+a;
 end;
writeln('Kol otr=',k);
write('Summa polz=',s:0:2);
readln
end.