Как найти порядковый номер наименьшей цифры числа, введенного с клавиатуры. признак конца ввода-число ноль. ПАСКАЛЬ

Здравствуйте

var
a:integer;
n:integer;
min:integer;
minindex:integer;
begin
n:=1;
readln(a);
min:=a;
minindex:=1;
while a<>0 do begin
readln(a);
n:=n+1;
if (a<min)and(a<>0) then begin
min:=a;
minindex:=n;
end;
end;
if n>1 then writeln(minindex,' eto chislo ' ,min) else writeln(' Krome nulya net cift');
readln;
end.