求：从n个数中找出最大的数 急！

var n,i,temp,max:longint;
begin
readln(n);
max:=0;
for i:=1 to n do begin
read(te);
if te>max then max:=te;
end;
writeln(max);
end;

program zuida;
var a:array[1..255] of longint;
i,x,max,t,s:longint;
begin
readln(x);
for i:=1 to x do read(a[i]);
min:=a[1];
for i:=1 to x do
begin
if a[i]>mas then
min:=a[i];
end;
t:=max;max:=a[1];a[1]:=t;
for i:=1 to x do write(a[i],' ');
end.

晕了。
var
i,j,n:longint;
begin
j:=-1000;
for i:=1 to n do
begin
read(i);
if i>j then j:=i;
end;
write(j);
end.