Вмассиве b1, b2, bn найти первое положительное число и напечатать его номер. язык програмирования паскаль

Program XXX;
var i, n, k : integer;
     b : array [1..100] of real;
begin
write ('введите n=');
readln(n);
write ('введите массив b :');
for i:=1 to n do
read(b[i]);
k:=0;
i:=1;
while (i<=n) and (k=0) do
  if b[i]>0 then k:=i else i:=i+1;
if k=0 then write('положительных элементов - нет')
         else write('номер первого положительного элемента-', k )
end.