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

type Tauto = record
                    Nummer:integer;
                    Automarke:string[20];
                    Modell:string[20];
                    Erstzulassung:string[4];
                    Kraftstoff:string[6];
                    Kilometer:string[7];
                    Preis:string;
                    Leistung:string;
                    end;

var
  auto: Tauto;
  Form1: TForm1;
  feld : array [1..200] of Tauto;
  i,y,j,anzahl,x: integer;
  Datei : file of Tauto;
  z:real;