uses dos,portovr;

type adresse = record
      vorname: string[10];
      nachname: string[10];
      strasse : string[10];
      plz : word;
      ort : string[10];
      telefon : longint;
end;
const
    zahl : byte = 10;
    tel : string[10] = 'Telefon : ';

var i,j : word;
    data : array[1..10] of adresse;
    f : boolean;
begin
    f := laden(i,'c:\data');
    if NOT f then begin
      writeln('Overlay-Fehler ! Bitte Taste drcken.');
      halt;
    end;
    for i:= 1 to zahl do begin
      writeln(data[i].vorname,' ',data[i].nachname);
      writeln(data[i].plz,' ',data[i].ort);
      writeln(data[i].strasse,' ',tel,data[i].telefon);
      writeln;
    end;
end.