Алгоритм построение дома с блок схеми

ответ:

type man = record

        name: string;

        surname: string;

        date: record

            day: integer;

            month: integer;

            year: integer;

        end;

    end;

var people: array [1..100] of man;

    i,n,_year: integer;

    _name: string;

begin

    write('enter number of man: ');

    readln(n);

    for i : = 1 to n do

    with people[i] do

    begin

        writeln('man[',i,']: ');

        write('enter name: ');

        readln(name);

        write('enter surname: ');

        readln(surname);

        write('enter birthday day/month/year: ');

        readln(date.day, date.month, date.year);

        writeln;

    end;

    write('enter year: ');

    readln(_year);

    for i : = 1 to n do

    with people[i] do

        if (date.year = _year) then

            writeln('name: ',name,' surname: ',surname);

    writeln;

    write('enter name: ');

    readln(_name);

    for i : = 1 to n do

    with people[i] do

        if (name = _name) then

        begin

            write(surname,' ',name);

            writeln(' ',date.day,'.',date.month,'.',date.year);

        end;

    readln;

end.

объяснение: