Как определить максимальное число?

[ВДПУ]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
    var n,n1,i,max: integer;
begin
   writeln('Vvedit kilkist elementiv: ');
   readln(n);
   for i:=1 to n do
   begin
    write('Vvedit elementu: ');
    readln(n1);
    end;
    max:=n1;
    for i:=1 to n do
     begin
     if (max-n1)>=0 then max:=n1;
     end;
     writeln(max);
     readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[SL1M_DOGG]

var n,n1,i,max: integer;

насколько я понимаю здесь n1 должен быть массив размерностью n

[ВДПУ]

нет, тут массива не нужно

[GetMax]

Без массива можно так сделать

 Write('n = ');
    Readln(n);
    Max:=Low(Integer);
    for I := 1 to n do
    Begin
      Write('Input digit: ');
      Readln(n1);
      if n1 > max then max:=n1
    End;
    Writeln('Maximum = ',Max);

[ВДПУ]

нет, не работает