напишите программу, которая вводит с клавиатуры дынные о n лицах (n меньше либо…

typeperson=recordfam: string; imya: string; day: integer; end; vara: array[1… 50] of person; i,n,z: integer; beginwrite ('n='); readln (n); for i: =1 to n dobeginwrite ('fam-'); readln (a[i].fam); write ('imya-'); readln (a[i].imya); write ('day-'); readln (a[i].day); end; write ('z-'); readln (z); for i: =1 to n doif a[i].day=z then writeln (a[i].fam, ',a[i].imya); readln; end.