2道PASCAL的题目

用PASCAL程序完成下面题目:
1.读入N个数,打印其中的最大数及其位置号.
2.有一组数(设有N 个数),其排列顺序如下:3,6,11,45,23,70,67,34,26,89,90,15,56,50,20,10.编一程序交换这组数中任意指定的两段不重合数据.

1.program wood;
var n,i,max,k,x:integer;
begin
readln(n);
for i:=1 to n do
begin
read(x);
if x>max then begin
max:=x;
k:=i;
end;
end;
writeln(max,' ',k);
end.
2.program wood;
var a,b:array[1..100] of integer;
i,n,x1,x2,y1,y2:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
readln(x1,y1,x2,y2);
for i:=1 to x1 do
write(a[i]:3);
for i:=x2 to y2 do
write(a[i]:3);
for i:=y1 to x2 do
write(a[i]:3）；
for i:=x1 to y1 do
write(a[i]:3);
for i:=y2 to n do
write(a[i]:3);
end.

1.var i,j,n:longint;
a,b:array[0..10000]of longint;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
b[i]:=i;
end;
for i:=2 to n do
begin