Из N целых чисел отыскать малое значение

USES Crt;
VAR nbsp;MI, X: INTEGER; nbsp;I,N: BYTE;
BEGIN
nbsp;nbsp;WriteLn(Введите количество значений); nbsp;ReadLn(n);
nbsp;nbsp;WriteLn(Введите первое значение); nbsp;ReadLn(mi);
nbsp;nbsp;FOR I:=2 TO N DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn(Введите ,I, -е значение); nbsp;nbsp;ReadLn(x);
nbsp;nbsp;nbsp;nbsp;nbsp;IF Xlt;MI Then MI:=X;
nbsp;nbsp;End;
nbsp;WriteLn(Минимальное значение = ,MI);
END.