Дана непустая последовательность различных натуральных чисел, за которой следует 0. определить порядковый номер наименьшего из них. разделитель между числами – символ по усмотрению исполнителя. в программе бэйсик

Uses crt; var a ,mn ,n ,imn : integer; begin clrscr; writeln ( 'введите натуральные числа, окончание ввода 0: ' ); repeat readln (mn ); until mn> 0; n : = 1; imn : = 1; repeat   repeat   readln (a );   until a> = 0;   n : =n + 1;   if (a< > 0 ) and (a< mn ) then   begin     mn : =a;     imn : =n;   end; until a = 0; write ( 'минимальное из чисел, не считая 0=' ,   mn , ' его номер=' ,imn ); readln end.