Длинное вычитание (Pascal)

procedure longsub(a,b:tlong; var c:tlong);
var k,i,p:longint;
begin
  fillchar(c,sizeof(c),0);
  if a[0]>b[0] then k := a[0] else k := b[0];
  p := 0;
  for i := 1 to k do
    begin
      c:=a-b-p;
      if c<0 then
        begin
          p := 1;
          inc(c,osn);
        end
      else p:=0;
    end;
  for i := k downto 1 do
    if c<>0 then break;
  c[0]:=i;
end;

procedure sub(*);
var i:integer
     z:integer;
     k:boolean;
     l:string;
begin
k:=false;
while (length(a)<max(length(a),length(b)))or(length(b)<max(length(a),length(b))) do if length(a)<max(length(a),length(b)) then a:='0'+a else if length(b)<max(length(a),length(b)) then b:='0'+b;
for i:=length(a) downto 1 do if ord(a)<ord(b) then break;
if i<length(a)+1 then begin l:=a;a:=b;b:=l;c[255-length(a)]:='-';end;
for i:=length(b) downto 1 do
begin
 if k then
  begin
   dec(byte(a));if a<ord('0') then a:=ord('9') else k:=false;
  end;
 if ord(b)>ord(a) then
  begin
   k:=true;
   c:=ord(a)-ord(b)+ord('9')+1;
  end else c:=ord(a)-ord(b)+ord('0');
end;
end;