Summen af en række tal

Hej

Jeg er ved at lave et program der udskriver informationer om et lån, ja kig selv hvad den gør.

Dog vil jeg gerne have tallene ialt nederst, men har problemer med hvordan jeg skal få den til at gøre det?

program Termin2;

{$APPTYPE CONSOLE}

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ShellApi;

type
  String10 = String[10];
      TLaan = Class
                Private
                  Hovedstol:  real;
                  Saldo:      real;
                  Rentesats:  real;
                  Rentebelob:  real;
                  Ydelsessats: real;
                  Ydelse:      real;
                  Afdrag:      real;
                  Kreditor:    String[10];
                Public
                  constructor create(pKreditor: String10;
                                      pHovedstol,
                                      pRentesats,
                                      pYdelsessats: real);

                  procedure amortiser;
                  procedure Udskriv;
            end;

Type
  TAcc = Class(TLaan)


  end;

var Laan: array[1..2] of TLaan;
    k:    char;
    i, j: Integer;



  Constructor TLaan.Create( pKreditor: string10;
                            pHovedstol,
                            pRentesats,
                            pYdelsessats: real);
      begin


        Kreditor    := pKreditor;
        Hovedstol    := pHovedstol;
        Saldo        := Hovedstol;
        Rentesats    := pRentesats;
        Ydelsessats  := pYdelsessats;
        Ydelse      := pHovedstol * pYdelsessats;
      end;
  Procedure TLaan.amortiser;
      begin

        //ydelse = Rentebeløb + afdrag:
        Rentebelob := Rentesats * Saldo;
        Afdrag    := Ydelse - Rentebelob;
        Saldo      := Saldo - Afdrag;
      end;
  Procedure TLaan.Udskriv;
      begin

        write(output,Kreditor,' ');
        write(output,Saldo:10:1,'  ');
        write(output,Rentebelob:10:1, '  ');
        write(output,Afdrag:10:1, '  ');
        writeln;
      end;

      begin

  Laan[1]:= TLaan.create('Nykredit:', 200000,  0.015, 0.025);
  Laan[2]:= TLaan.create('BRF:    ', 250000, 0.0175, 0.024);

  writeln('Alle oplysninger er gemt i laan');
  writeln('Vil du aabne laan.txt? Ja/Nej');
  repeat
      Readln(k);
  until k in ['j', 'J','N', 'n'];

  if k in ['j','J'] then begin
      writeln('Du valgte ja og filen aabnes nu - Vent venligst');
      readln;
      ShellExecute(0, 'open', 'C:\Documents and Settings\Administrator\Dokumenter\Datalogi\Delphi\StorOpgave\laan.txt', nil, nil, SW_SHOWNORMAL);
      end else begin
      writeln('Du valgt ikke at aabne filen, men den kan stadig findes i programmets mappe');
      writeln('Programmet lukkes nu');
      readln;
  end;

          Assign(output,'C:\Documents and Settings\Administrator\Dokumenter\Datalogi\Delphi\StorOpgave\laan.txt');
          rewrite(output);


  writeln(output,'Kreditor  #  Saldo  #  Rentebelob  #  Afdrag');
  writeln(output,'============================================');

  Repeat
    For i:=1 to 2 do begin
            Laan[i].amortiser;
            Laan[i].udskriv;
    end;
            until laan[1].Saldo < 0 ;
            repeat

            Laan[2].amortiser;
            Laan[2].udskriv;

          until laan[2].Saldo < 0;

            end.