1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure P_Ergebnisse_eintragen;
var
    results :text;
    Ergebnis: ARRAY [1..9] of integer;
    i: integer;

begin
ASSIGN (results, 'C:\Thiel\Klasse_13_1\Projekt\Ergebnisse.txt');
rewrite(Results);
begin
writeln;writeln;
writeln
for i:=1 to 9 do
begin
writeln;
write(i,'. Ergebnis eintragen  ');
read(Ergebnis[i]);
write(results,Ergebnis[i]);
end;
end;
CLOSE(results);
writeln('Enter druecken..');
readln;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

type
  TMannschaft = record
    Name: string[30];      // Name der Mannschaft als ShortString
    TorDifferenz: integer; // Differenz zwischen eigenen und gegnerischen Toren
    Punkte: integer;       // erzielte Punkte
  end;
 
  TSpiel = record
    Heimmannschaft: integer; // Index der Heimmannschaft
    Gastmannschaft: integer; // Index der Gastmannschaft
    Heimtore: integer;       // Anzahl der von der Heimmannschaft erzielten Tore  
    Gasttore: integer;       // Anzahl der von der Gastmannschaft erzielten Tore
  end;

  TSpieltag = array [1..9] of TSpiel; // Beinhaltet die neun Spiele eines Spieltages                    

1:
2:
3:

var
  Mannschaften: array[1..18] of TMannschaft; // Daten aller 18 Mannschaften
  Spieltage: array[1..34] of TSpieltag;      // Daten aller 34 Spieltage                    

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:

procedure Spieltag_erfassen;
var
  ST: integer;     // Nummer des Spieltages
  HM, GM: integer; // Index Heim- bzw. Gastmannschaft
  HT, GT: integer; // Anzahl Heim- bzw. Gasttore
  i: integer;
begin
  // Eingabe des Spieltages (Eingabe sollte noch auf Plausibilität geprüft werden)
  Write('Spieltag (1-34) eingeben:');
  ReadLn(ST);

  for i:=1 to 9 do // alle neun Spiele eines Spieltages durchgehen
    begin
      // Eingabe des Index der Heimmannschaft (ebenfalls auf Plausibilität prüfen)
      WriteLn('Spiel ',i,':');
      Write('Index der Heimmannschaft eingeben (1-18):');
      ReadLn(HM);
      Spieltage[ST][i].Heimmannschaft:=HM;

      // ...nacheinander Gastmannschaft, Heimtore und Gasttore erfassen

      // evtl. hier schon die Daten jeder Mannschaft anpassen
      // eigene Tore zähelen Positiv, gegnerische negativ
      Mannschaften[HM].TorDifferenz:=Mannschaften[HM].TorDifferenz+HT-GT;
      
      // das gleiche für die Gastmannschaft

      // erzielt die Heimmanschaft mehr Tore, erhält sie 3 Punkte
      if HT > GT then Mannschaften[HM].Punkte:=Mannschaften[HM].Punkte+3;
      // erzielt die Gastmanschaft mehr Tore, erhält sie 3 Punkte
      // [...]
      // bei Unentschieden bekommt jeder 1 Punkt
      // [...]
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure Daten_speichern;
var
  i: integer;
  MF: file of TMannschaft;
  MS: file of TSpiel;
begin
  Assign(MF, 'R:\Mannschaften.dat');
  // Datei neu erstellen und zum Schreiben öffnen (sollte noch auf IO-Fehler geprüft werden)
  ReWrite(MF);
  // Daten der Mannschaften sichern
  for i:=1 to 18 do
    Write(MF, Mannschaften[i]);
  // Datei schließen
  Close(MF);

  // ...die Daten für die Spieltage ebenfalls speichern
end;