С клавиатуры задаётся три числа. Составить программу, которая определяет, Как узнать сколько отрицательных чисел введено

program mas;
uses crt;
const n=3;
var a,i,kp,ko,kn: integer;
begin clrscr; 
writeln('Введите ',n,' целых чисел');
ko:=0; for i:=1 to n do 
begin 
readln(a); 
if a<0 then
ko:=ko+1 end; 
writeln('Кол-во отриц чисел=  ',ko); 
readln;
end.