Даны четыре вещественных числа. Определить, сколько из них отрицательных. Оператор цикла не использовать — Pascal(Паскаль)

var a,b,c,d:real;
    k:byte;
begin
writeln('Введите 4 вещественных числа:');
readln(a,b,c,d);
k:=ord(a<0)+ord(b<0)+ord(c<0)+ord(d<0);
write('Количество отрицательных=',k);
readln
end.

var
k,i,a:integer;
begin
    k:=0;//пока отрицательны нет
    for i:=1 to 4 do//проверяем 4 числа
     begin
      readln(a);//вводим их и читаем
      if a<0 then k:=k+1;//если число меньше ноля, то считаем его
     end;
    write('Всего отрицательных чисел=',k);
end.