vielleicht habe ich dein Problem fasch verstanden, aber es hört sich so an als ob du keine
Functions kennst, wenn das der Fall ist:
Aussehen: eine Funktion sieht fast genauso wie eine Prozedur aus, mieinem unterschied: sie liefert einen Wert zurück:
Quelltext
1:
| function ~Name~(~Parameter~: ~Typ~;...)~ergebnisstyp; |
Beispiel:
Quelltext
1: 2: 3: 4: 5: 6:
| Function firstletter(s: string): char; begin Result := s[0]; //oder firstletter := s[0] end; |
in deinem Fall müsstest du den ganzen code in neue Funktionen umschichten oder du deklariert einfach ein Paar globale variablen (in Unit.var), in denen du deine Werte speicherst., und dann nachher mit ausgibst.
MathiasH