Сложения больших чисел(стеки)

[black_bullet]

program laba;
uses crt;
type
 elspysku=^number;
 number=record
  num:integer;
  dali:elspysku;
 end;
var A,B,C,head:elspysku;
  s1,s2:string;
  i,ci:integer;

procedure push(var head:elspysku; x:integer);
var element:elspysku;
begin
 new(element);{Тут ошибка}
 element^.num:=x;
 element^.dali:=head;
 head:=element;
end;
procedure output(var head:elspysku; varible:integer);
var element:elspysku;
begin
 element:=head;
 while head<>nil do
 begin
  element:=head;
  head:=element^.dali;
  write(element^.num,' ');
  dispose(element);
 end;
end;
procedure zero(var s1:string; s2:string);
begin
 for i:=length(s1) to length(s2)-1 do
  s1:='0'+s1;
end;
procedure StringToStack(s:string; var head:elspysku);
var x1,x2:integer;
begin
 for i:=1 to length(s) do
 begin
  val((copy(s,i,1)),x1,x2);
  push(head,x1);
 end;
end;
procedure Addition(A,B:elspysku; C:elspysku);
var carry,ai,bi:integer;
begin
 carry:=0;
 while A<>nil do
 begin
  push(C,((ai+bi+carry) mod 10));
  carry:=((ai+bi+carry) div 10);
 end;
 if carry> 0 then push(c,carry);
end;
begin clrscr;
 head:=nil;
 write('Enter first number A:');
 readln(s1);
 write('Enter second number B:');
 readln(s2);
 Zero(s1,s2);
 Zero(s2,s1);
 StringToStack(S1,A);
 StringToStack(S2,B);
 Addition(A,B,C);
 write('A+B=');
 while C<>nil do
 begin
  output(C,ci);
  write(ci);
 end;
end.

При роботе программы, когда ввожу 2 числа и нажимаю Ентер пишит:
Ошибка 203. Переполние кучи

[ZX Spectrum-128]

procedure Addition(A,B:elspysku; C:elspysku);
var carry,ai,bi:integer;
begin
 carry:=0;
 while A<>nil do
 begin
  push(C,((ai+bi+carry) mod 10));
  // чему равны ai и bi?
  // они не инициализированы никак
  // там мусор и цикл крутится бесконечно, пока не переполнится стек
  carry:=((ai+bi+carry) div 10);
 end;
 if carry> 0 then push(c,carry);
end;