ПОМОГИТЕЕЕЕЕЕ!!!!!


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

//Pascal ABC.NET v3.1 сборка 1172begin 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.Пример ввода:2340Пример вывода:[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;  writeln('index = ', mini);end.