Поиск минимального числа из всех введенных.

Program minimum;
Uses
Crt;
const num = 10;

Var
min: Integer; { минимальное значение }
n: Integer; { число }
i: Integer; { счетчик цикла }
x: Integer;
Begin
ClrScr;
WriteLn (‘Введите первое число’);
ReadLn (x);
min :=x;
for i:=1 to num-1 do
begin
WriteLn(i+1, ‘-е число = ‘); { просим пользователя ввести число }
ReadLn(n); { считываем число в переменную n }
{ если очередное число меньше минимального, то заменяем }
{ минимальное число на n }
if (n