Напишите на паскале ,пожалуйста.Вот задание:Введится 10 чисел,обусловьте сколько

Var
  a, b, c, d, e, f, g, h, i, j, x, y: integer; 
begin
  write('введите 10 чисел: ');
  read(a, b, c, d, e, f, g, h, i, j);
  if a lt; 0 then y := y + 1 else x := x + 1;
  if b lt; 0 then y := y + 1 else x := x + 1;
  if c lt; 0 then y := y + 1 else x := x + 1;
  if d lt; 0 then y := y + 1 else x := x + 1;
  if e lt; 0 then y := y + 1 else x := x + 1;
  if f lt; 0 then y := y + 1 else x := x + 1;
  if g lt; 0 then y := y + 1 else x := x + 1;
  if h lt; 0 then y := y + 1 else x := x + 1;
  if i lt; 0 then y := y + 1 else x := x + 1;
  if j lt; 0 then y := y + 1 else x := x + 1;
  writeln('количество положительных чисел: ', x);
  writeln('количество отрицательных чисел: ', y);
end.