С клавиатуры вводится последовательность чисел до тех пор пока не будет введен 0. Требуется найти порядковый номер мин.из введенного чисел

//Pascal ABC.NET v3.1 сборка 1172 begin  Var seq:=SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x<>0).ToArray;  writeln(seq.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1=seq.Min).Select(x->x.Item2)); end. Пример ввода: 2 3 4 0 Пример вывода: [1]

var   mini, min, n, i: integer; begin   i := 1; {порядковый номер введенного с клавы числа}   readln(n); {считываем число в клавиатуры}   min := n; {присваеваем минимуму первое введенное число. Если будет введено одно число то оно и есть минимум}   mini := i; {присваеваем порядковый номер минимума}     repeat{повторяем}     i := i + 1; {порядковый номер введенного с клавы числа}     readln(n); {считываем число в клавиатуры}     if (n <> 0) and (min > n) then begin {если введенное число меньше минимума, то заменяем минимум}       min := n; {присваеваем минимуму число}       mini := i;{присваеваем порядковый номер минимума}     end;   until n = 0;{до тех пор пока n=0}     writeln('index = ', mini); end. Что еще не понятно?