Сравнить числа (найти мах число) вводимые с клавиатуры

1.ввел число
2.запомнил его в минимум
3.ввел следующее, если оно меньше минимума запомнил его в минимум, перейти к п. 3.
Паскаля не знаю (знаю С++) , но прога элементарная!!!

Для примера 10 вводов (вводимые целые числа) :

var max, i, in : integer;
begin
max:=-32768;
for i:=1 to 10 do begin
readln(in);
if max > in then max:=in;
end;
writeln('Max=', max);
readln;
end.