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

var
Liste : textfile;
Suchen : String;
S : Integer;
begin
   
   Assignfile(Liste, 'Stadt.txt');
   Reset(Liste);
    for S := 0 to 20000 do
      begin
      ReadLn(Liste,Suchen);
        if (Edit1.Text=Suchen) and (StrToInt(Label9.Caption)>=100) then
        Edit8.Text:='30';
        if (Edit1.Text=Suchen) and (StrToInt(Label9.Caption)>=60) and   (StrToInt(Label9.Caption)<100) then (* das größer und kleiner ist nur für die verbliebene Zeit - je mehr verbliebende Zeit, desto mehr Punkte *)
        Edit8.Text:='20';
        if (Edit1.Text=Suchen) and (StrToInt(Label9.Caption)>=0) and (StrToInt(Label9.Caption)<60) then
        Edit8.Text:='10';
        end;
       

end;                    

1:
2:
3:

var 
  Datei1, Datei2, Datei3 : Textfile;
  Datei4 : Textfile;                    

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

  //Erstmal Stadt prüfen
  AssignFile(Liste, 'Stadt.txt');
  {...dein code...}
  {muss man sowas wie CloseFile aufrufen? Glaube ja. Wenn ja, dann mach das hier.}
  //Jetzt Land prüfen
  AssignFile(Liste, 'Land.txt');
  {...}