Нахождение минимального числа из введенных

Program MIN;
Var
A, I : Integer;
Min : Integer;

Begin
Min:=32767;
For I:=1 to 10 do
Begin
Write('Vvedi chislo ');
Readln(A);
If A < Min then Min:=A;
end;
Writeln('MIN=',Min);
Readln;
end.
Описание программы:
Program- начало программы
MIN-имя программы
Var-раздел описания переменных
A, I : Integer;-переменные целого типа
Min : Integer;- значение целого типа
Begin - начало
Min:=32767;- мнинимальное значение
For I:=1 to 10 do-цикл с параметром
Begin-начало
Write('Vvedi chislo ');- вывод на экран выражения ('Vvedi chislo ')
Readln(A);-список ввода переменной А
If A < Min then Min:=A;-опретор ветвления, если А меньше минимального значения, то минимальному значению присваивается значение А
end;- конец
Writeln('MIN=',Min);- вывод на экран значения MIN
Readln;-ввод значений
конец.