Calculando balance general pascal

Hi en este ejemplo de turbo pascal mostrare un simple uso que se le
puede dar al while con el cual calcularemos un balance general
por cada vez que se introduscan valores de activos y pasivos
Aqui el codigo:

Program appletenhtml(input,output); 



uses
 crt; 
Var
 x,activo,pasivo,capital: Integer;
 
      while x <> 0 do
 
Begin
     writeln('Balance general: ');
  writeln('Ingrese numero negativo para pasivo, positivo para activo: ');
         readln(x);
  if (x > 0) Then
      begin
   activo:=activo+x;
     end;
     
   
  if (x < 0) Then
      begin
   pasivo:=pasivo+x;
     end;
     
                                                      end;
              writeln('Balance general: ');
     writeln('Total de activos: ',activo);
                    writeln('Total de pasivos: 'pasivo);     
              capital:= activo+pasivo;
     writeln('Capital contable: ',capital);
  
 readkey;
End.

Descargar ejemplo
Balance General pascal