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