Viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình số lớn nhất

BÀI ĐÂY NÈ:

program oken;
uses crt;
var a: array [1..100] of integer;
    i,n,max:integer;
begin
        clrscr;
        write('nhap so n: '); readln(n);
        for i:=1 to n do
                begin
                        write('a[',i,']: ');
                        readln(a[i]);
                end;
        max:=a[1];
        for i:=2 to n do
                if a[i]>max then
                        max:=a[i];
        writeln('Max: ',max);
        readln;
end.