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

var a,s,i:integer;begins:=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.