1:
2:
3:
4:

while i <= 13 do
begin
  TEdit(Form1.FindComponent('edit'+IntToStr(1+i*7))).text:=Round(StrToInt(edit1.text)/(i+1));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:

program Project1;
uses
  SysUtils;

{$APPTYPE CONSOLE}


Type
 pTStructure = ^TStructure;
 TStructure = Record
  Sitze : integer;
  rang : integer;
 end;

VAR
 A      : Array [0..12,0..2] of TStructure;
 P      : Array [0..38] of Pointer;
 pStruc : pTStructure;
 i      : Integer;
 ii     : Integer;
 tmpPtr : Pointer;

BEGIN

 Readln(a[0,0].sitze);
 //a[0,0].sitze := 11050;
 Readln(a[0,1].sitze);
 //a[0,1].sitze := 6090;
 Readln(a[0,2].sitze);
 //a[0,2].sitze := 2670;

 // Array Berechnen
 FOR i:=1 TO 12 DO
  FOR ii:=0 TO 2 DO
   BEGIN
    a[i,ii].sitze := a[0,ii].sitze DIV (i+1);
    a[i,ii].rang := 0;
   END;

 // Pointer für jeden Eintrag des Arrays A in das
 // Pointer Array P legen
 pStruc:= @a[0,0];
 FOR i:=0 TO 38 DO
 BEGIN
  p[i]:=pStruc;
  INC(pStruc);
 END;

 // Pointer Array Sortieren, da Pointer nur Zeiger sind wird
 // das Array A nicht angetastet
 FOR i:=0 TO 38 DO
  FOR ii:=0 TO 38 DO
  BEGIN
    // Mehr Sitze als Vergleichswert -> Pointer Adressen austauschen
    IF pTStructure(p[i])^.Sitze > pTStructure(P[ii])^.Sitze THEN
    BEGIN
     //Swap Position
     TmpPtr:=p[i];
     p[i]:=p[ii];
     p[ii]:=TmpPtr
   END;
  END;

 // Das nun sortierte Pointerarray durchlaufen und Ränge verteilen
 FOR i:=0 TO 38 DO
 BEGIN
  pTStructure(p[i])^.rang :=i+1;
 END;

 // Ausgabe des Arrays A it Rängen
 pStruc:= @a[0,0];
 FOR i:=0 TO 12 DO
 BEGIN
  FOR ii:=0 TO 2 DO
  BEGIN
   Write('|',pstruc^.sitze,'/',pstruc^.rang,' | ');
   Inc(pStruc);
  END;
  WriteLN;
 END;
 Writeln;
 Writeln('Press Enter to Exit');
  Readln;

end.					

1:
2:
3:
4:
5:
6:
7:

//Einlesen Der Startwerte
//Stimmenzahl Zeile1 Partei A
a[0,0].sitze := edit1.text;
//Stimmenzahl Zeile1 Partei B
a[0,1].sitze := edit2.text;
//Stimmenzahl Zeile1 Partei C
a[0,2].sitze := edit3.text;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

// Asugabe der Array in Editfelder.
pStruc:= @a[0,0]; 
For i:=1 To 39 DO
BEGIN
 // Errechnete Sitze einfügen
 TEdit(Form1.FindComponent('edit'+IntToStr(i))).text := IntToStr(pstruc^.sitze);
 // Errechneten Rang Einfügen
 TEdit(Form1.FindComponent('edit'+IntToStr(i+39))).text := IntToStr(pstruc^.rang);
 // imArray um einen eintrag weiter Wandern:
 Inc(pStruc);
END;