ПОМОГИТЕ ПЖЛ!!!
напишите прогу, в которой осуществляется ввод целых чисел и подсчет кол-ва введенных положительных и отрицательных чисел(т.е. задано условие окончания работы, использовать 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.