有关PASCAL问题，请高手帮忙。

1.先把ABCDEF换成10~15，然后算的时候逢16进一就行。
下面是乘法：
program gaojing;
var
l1,l2,jw,i,j,ls:longint;
p,q:string;
a,b,c:array[1..1000] of longint;

function zhuan(shu:char):longint;
begin
if (shu>='0') and (shu<='9') then zhuan:=ord(shu)-48
else zhuan:=ord(shu)-55;
end;

begin
readln(p);
readln(q);
l1:=length(p);
for i:=1 to l1 do
a[i]:=zhuan(p[l1-i+1]);
l2:=length(q);
for i:=1 to l2 do
b[i]:=zhuan(q[l2-i+1]);
for i:=1 to l1 do
begin
for j:=1 to l2 do
begin
ls:=c[i+j-1]+a[i]*b[i]+jw;
jw:=ls div 16;
c[i+j-1]:=ls mod 16;
end;
if jw>0 then c[i+l2]:=jw;
jw:=0;
end;
end.
2。开头在var前面一行打：
uses crt;
比如有n个数要输出
在数组a当中，那么
2秒输出的过程:
procedure twominutes;
var i,j:longint;
begin
for i:=1 to n d