program makler;

type
        jahr = 1600..2012;
        arten = (EFH,MFH,RH,REH,DHH,ETW, Sonstiges);
        ziffer = '0'..'9';

        objekttyp = record
                verkaeufer: string;
                plz : array[1..5] of ziffer;
                hausart: arten;
                zimmer: integer;
                baujahr: jahr;
                preis: real;
              end;

var objekt: objekttyp;

function neu:objekttyp;
var     haus: objekttyp;
        i:integer;
        s:string;

begin
        write('Geben Sie den Namen des Verkaeufers ein: ');
        readln(haus.verkaeufer);
        write('Nun benoetigen wir die PLZ des Objekts: ');
        for i:=1 to 5 do read(haus.plz[i]);
        readln();
        write('Bitte geben Sie die Art des Objekts an: ');
        readln(s);
        if s= 'EFH' then haus.hausart:=EFH
        else if s ='MFH' then haus.hausart := MFH
        else if s ='RH' then haus.hausart := RH
        else if s ='REH' then haus.hausart := REH
        else if s ='DHH' then haus.hausart := DHH
        else if s ='ETW' then haus.hausart := ETW
        else
                begin
                writeln('Diese Hausart gibt es nicht!');
                haus.hausart :=  Sonstiges
                end;
        write('Bitte geben Sie die Zimmerzahl an: ');
        readln(haus.zimmer);
        write('Bitte geben Sie das Baujahr an: ');
        readln(haus.baujahr);
        write('Und zum Schluss noch den Preis: ');
        readln(haus.preis);
        neu := haus;
        writeln('Danke fuer Ihre Angaben!');
end;

procedure ausgabe(haus: objekttyp);
var     i:integer;
begin
        writeln;
        writeln('Hier Ihre Angaben zum Objekt:');
        writeln('Verkaeufer: ',haus.verkaeufer);
        write('Ort/Lage: ');
        for i:=1 to 5 do write(haus.plz[i]);
        writeln;
        writeln('Art des Objekts: ', haus.hausart);
        writeln('Baujahr:  ',haus.baujahr, ', Zimmeranzahl: ',haus.zimmer);

        writeln('Verkaufspreis: ',haus.preis:8:2);
end;

begin
        objekt:= neu;
        ausgabe(objekt);
end.