Дано N чисел. НАйти максимальное число.

Вопрос пользователя:

Дано N чисел. НАйти максимальное число.

Илюха отвечает:

var a,max: real;

     n,i: integer;

begin

  max:=0;

  readln(n);

  for i:=1 to n do begin 

    readln(a);

    if a>max then max:=a;

                         end;

  writeln(max);

end.