даны 10 произвольных действительных числа (вводятся с клавиатуры). Подсчитать количество отрицательных чисел помогите составить программу

var a, s, i:integer;

begin

s:=0;

for i:=1 to 10 do

begin

write ('Число: '); readln (a);

if a<0 then s:=s+1;

end;

writeln ('Кол-во отрицательных чисел: ', s);

end.

Program Zorkini;

uses crt;

const n=10;

var

Z: real;

i, k: integer;

begin

k:=0;

for i:=1 to n do

begin

write ('Введите ', i,'-e число ');

readln (z);

if z<0 then k:=k+1;

end;

writeln ('Количество отрицательных чисел ', k);

end.