Отдельные строки в программе записи в типизированный файл

type
    kind = (married, single);
    date = record
        day: 1..31;
        month: 1..12;
        year: integer;
    end;
    person = record
        name: string;
        datebirth: date;
        case yesno: kind of
            married: (name1: string; date1: date);
            single: ()
    end;
 var
    p: person;
 begin  clrscr;
    with p do begin
        yesno := married;
        name := 'panin';
        with datebirth do begin
            day := 14;
            month := 5;
            year := 1962
        end;
        case yesno of
            married: begin
                name1 := 'panina';
                with date1 do begin
                    day := 30;
                    month := 12;
                    year := 1968
                end;
            end;
        end;
    end;
     with p do
        write(' ', name);
    with p.datebirth do
        writeln(' ', day, '/', month, '/', year);
    with p do
        write(' ', name1);
    with p.date1 do
        write(' ', day, '/', month, '/', year);
 readln
end.

 married:begin

 case yesno of

case yesno of
married://Если yesno=married выполняются некоторые действия,не важно какие,если действие одно,begin не нужен,но если несколько операторов то они объеденяются в блок begin end
single://А если yesno=single выполняются уже другие действия

uses Crt;
type
    kind = (married, single);
    date = record
        day: 1..31;
        month: 1..12;
        year: integer;
    end;
    person = record
        name: string;
        datebirth: date;
        case yesno: kind of
            married: (name1: string; date1: date);
            single: ()
    end;
 var
    p: person;
 begin  clrscr;
    with p do begin
        yesno := married;
        name := 'panin';
        with datebirth do begin
            day := 14;
            month := 5;
            year := 1962
        end;
    
                name1 := 'panina';
                with date1 do begin
                    day := 30;
                    month := 12;
                    year := 1968
                
            end;
        end;
 
     with p do
        write(' ', name);
    with p.datebirth do
        writeln(' ', day, '/', month, '/', year);
    with p do
        write(' ', name1);
    with p.date1 do
        write(' ', day, '/', month, '/', year);
 readln
end.