Найти максимальное из n введенных чисел.(циклы)

Program sherilusha;
uses crt;
var
  i,n: integer;
  max, temp: real;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Ввести количество чисел'); readln(n);
  writeln('Введите числа');
  write('1-е число:'); readln(max);
  for i:=2 to n do
    begin
      write(i,'-е число:'); readln(temp);
      if max<temp then max:=temp;
    end;
  writeln('Максимальное из введённых чисел равно ',max) ;
end.