pascal高精度加单精度

program add1;
i:integer;
var m:array[0..200]of byte;
str:string;
n:int64;
begin
readln(str);
readln(n);
for i:=length(str) downto 1 do
m[length(str)-i+1]:=ord(str[i])-48;
m[0]:=length(str);
inc(m[1],n);
for i:=1 to length(str) do
begin
if m[i]>=10 then
begin
m[i]:=m[i] mod 10;
inc(m[i+1]);
if i=length(str) then inc(m[0]);
end;
end;
for i:=m[0] downto 1 do
write(m[i]);
end.

( ⊙o⊙?)不懂，是加法or减法or乘法or除法哩？