Ребята, помогите пожалуйста с задачей Pascal последовательности!

Найти номер наименьшего положительного числа в последовательности произвольных чисел, вводимых с клавиатуры. Остановить обработку при вводе заказанного количества чисел. Тип обработки данных - вещественный.

program p1;var a,b:integer;      i,n,x:integer;beginWriteln ('Введите к-во');readln (n);x:=0;for i:=1 to n dobeginWriteln ('Введите число:');readln (a);if a>=0 thenbeginif x=0 then b:=a;if (x>0) and (a<b) then b:=a;x:=x+1;end;end;Writeln('Наименьшего положительного число: ',b);end.