Задача на тему цикл с параметром Паскаль. Определить среди 10 чисел какое из них наибольшее и вывести порядковый номер этого числа.

Program P; Var     n, i : Integer;     max, iMax: Integer; Begin     Write('Enter 10 numbers ');          for i := 1 to 10 do     Begin         Read(n);                  if i = 1 then         Begin             max := n;             iMax := i;         End         else             if n > max then             Begin                 max := n;                 iMax := i;             End;     End;          WriteLn('Max = ', max);     WriteLn('index = ', iMax);          ReadLn; End.