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

rocedure Dateninit;
var x: integer; var ZwischenVariable: RECNamenstruktur;
 begin


  assign(Namendatei, 'C:\VfSNamen.bsp');
  reset(Namendatei);


  for x := 1 to 500 do NamenArray[x].MitgliedsNummer := 0;
  for x := 1 to 500 do SpeicherArray[x].existiert := false;
  for x := 1 to 500 do KommenGehenArray[x] := false;
  for x := 1 to 250 do                        (*Problem Schleife*)
   begin
    if eof(NamenDatei) = false then read(Namendatei, Zwischenvariable);
    if (Zwischenvariable.MitgliedsNummer <> 0) and (eof(NamenDatei) = false) then
     NamenArray[ZwischenVariable.Mitgliedsnummer] := Zwischenvariable;
   end;

  close(NamenDatei);

 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:

type

RECNamenstruktur = record
 Name: Array [1..20] of Char;
 Vorname: Array [1..15] of Char;
 Gruppe: integer;
 Mitgliedsnummer: integer;
end;


RECSpeicherStruktur = record
 existiert: boolean;
 Ankunftszeit: Array [1..6] of Char;        
 Ausgangszeit: Array [1..6] of Char;
end;


RECSpeicherDateiInhalt = record
 Ankunftszeit: Array [1..6] of Char;
 Ausgangszeit: Array [1..6] of Char;
 Name: Array [1..20] of Char;
 Vorname: Array [1..15] of Char;
 Gruppe: Integer;
 Mitgliedsnummer: Integer;
end;

var PruefVariable: integer;
    Ausstieg: boolean;
    SpeicherArray: Array[1..500] of RECSpeicherStruktur;
    NamenArray: Array[1..500] of RECNamenstruktur;
    NamenDatei: file of RECNamenstruktur;
    KommenGehenArray: Array[1..500] of boolean;
    ComPortptr: Serialptr;
    SerialErrorCode: SerialErr;