pascal求N个数中最大数及其位置

var n,i,x,max,maxi:integer;
begin
readln(n);
read(max);
maxi:=1;
for i:=2 to n do
begin
read(x);
if x>max then
begin
max:=x;
maxi:=i;
end;
end;
writeln(max,' ',maxi);
end.