PASCAL的高精度运算

请给我一个高精度乘低精度的过程和一个高精度除以低精度的过程。
不要复制的，
我要标准的程序，就像程序里快排的过程一样。
谢谢了
除法请给个求余的，乘法给我个乘法的
输入m，n，求m/n的余数
输入m，n，求m的n次方

这是乘
program asd;
var
a,b:string;
aa,bb,cc:array[1..255] of integer;
i,j,k,t,t1,t2,tt:integer;
begin
readln(a);
readln(b);
fillchar(cc,sizeof(cc),0);
t1:=length(a); t2:=length(b);
for i:=1 to t1 do
aa[t1-i+1]:=ord(a[i])-ord('0');
for i:=1 to t2 do
bb[t2-i+1]:=ord(b[i])-ord('0');

for i:=1 to t1 do
for j:=1 to t2 do
begin
cc[i+j-1]:=cc[i+j-1]+aa[i]*bb[j];
cc[i+j]:=cc[i+j]+cc[i+j-1] div 10;
cc[i+j-1]:=cc[i+j-1] mod 10;
end;

i:=t1+t2+1;
while (i>1) and (cc[i]=0) do
i:=i-1;
for j:=i downto 1 do
write(cc[j]);
readln;
end.

除
program asd;
var
a,c:array[1..255] of integer;
x,b:longint;
n1:string;
lena,i,j:integer;
begin