Напишите прогу, в которой осуществляется ввод целых чисел и подсчет кол-ва введенных положительных и отрицательных чисел(т.е. задано условие окончания работы, использовать reapeat)

Program Katarina55;
uses crt;
var
  x,poz,neg:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Программа находит количество положительных и отрицательных введённых чисел. ');
  writeln('Ввод продолжается, пока не будет введен 0.');
  writeln();
  neg:=0;
  poz:=0;
  repeat
    writeln('Введите число '); readln (x);
    if x<0 then neg:=neg+1;
    if x>0 then poz:=poz+1;
  until x=0;
  writeln();
  writeln('Программа закончила работу.');
  writeln('Количество введённых чисел:');
  writeln('   положительных: ',poz);
  writeln('   отрицательных: ',neg);
end.