懂编程的帮我看看这个程序哪里错了,turbo pascal的

问题很多
const maxn=10;
var a:array[1..maxn] of longint;
i,no,n,max:longint;
begin
randomize;
for i:=1 to maxn do {For 要用:= 另外这里需要用i，下同}
a[i]:=random(maxn);
for i:=1 to maxn do
write(a[i],' ');
max:=a[1];
no:=a[1];{用到一个新的变量 要定义}
for i:=2 to maxn do
if a[n]>a[1] then begin max:=a[1];no:=i; end; {if 语句右面要执行多个语句 需要begin end }
writeln(max,' ',no);
end.

如果还有问题，＋Q

我是学C++的对PASCAL不算太了解,有的地方也能看懂一些,但是我也喜欢看看,我改的程序只供参考
const maxn=10;
var a:array[1..maxn] of longint;
i,n,max:longint;
begin
randomize;
for a:1 to maxn do
a[i]:=random(maxn);
for a:1 to maxn do //应该是for i:1 to maxn do
write(a[i],' ');
//for i:=2 to maxn do if a[i]>a[i-1] then
max:=a[1]; //这里不对吧 我觉得应该是 max:=a[i];
no:=a[1]; //这句不写
for a:=2 to maxn do //for n:=2 to maxn do
if a[n]>a[1] then //去掉
max=a[1];no:=i; //if max=a[n] t