Напишите на паскале ,. вот : введится 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 < 0 then y := y + 1 else x := x + 1;
  if b < 0 then y := y + 1 else x := x + 1;
  if c < 0 then y := y + 1 else x := x + 1;
  if d < 0 then y := y + 1 else x := x + 1;
  if e < 0 then y := y + 1 else x := x + 1;
  if f < 0 then y := y + 1 else x := x + 1;
  if g < 0 then y := y + 1 else x := x + 1;
  if h < 0 then y := y + 1 else x := x + 1;
  if i < 0 then y := y + 1 else x := x + 1;
  if j < 0 then y := y + 1 else x := x + 1;
  writeln('количество положительных чисел: ', x);
  writeln('количество отрицательных чисел: ', y);
end.