вычитание через строки, длинная арифметика Опции

[Dain]

как реализовать вычитание из числа a типа string чило b типа string

procedure sub( a,b:string; var c: string);
var
z,x,y,n,k,p,i,j: byte;
Begin
     if a='0' then begin c:='0'; halt(0); end;
     c:='';
     n:= length (a);
     k:= length (b);
     for i:=1 to n+k do c:=c+'0';
     for i:=k downto 1 do begin
         p:=0; y:= ord (b[i])-ord('0');
         for j:=n downto 1 do begin
             x:= ord(a[j])-ord('0');

а дальше как ?помогите плз

Сообщение отредактировано: Dain - 10.06.2007 11:22