Разбор программы на записи

const x = 4;
Type people = Record
   f,n:String;
   d,m,y:integer;
   End;
 Var
 All: Array [1..x] of people;
 i: integer;
Begin
   For i:=1 to  x do
     with All[i] do
        begin 
            Writeln('Введите фамилю, имя и дату рождения');
            Readln(f);
            Readln(n);
            Readln(d,m,y);
            Case d of 
     29: if (m=2) then writeln('Этот человек родился в последний день данного месяца ');
     30: if (m=4) or (m=6) or (m=9) or (m=11) then  writeln('Этот человек родился в последний день данного месяца ');   
     31: if (m=1) or  (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then  writeln('Этот человек родился в последний день данного месяца ');
     else Writeln('Этот человек не родился в последний день данного месяца');
                   end; 
          end;
 Readln;
 End.

const x = 4;
Type people = Record
   f,n:String;
   d,m,y:integer;
   End;
 Var
 All: Array [1..x] of people;
 i: integer;
Begin
   For i:=1 to  x do
        begin
            Writeln('Введите фамилю, имя и дату рождения');
            Readln(All[i].f);
            Readln(All[i].n);
            Readln(All[i].d,All[i].m,All[i].y);
            Case All[i].d of
     29: if (All[i].m=2) then writeln('Этот человек родился в последний день данного месяца ');
     30: if (All[i].m=4) or (All[i].m=6) or (All[i].m=9) or (All[i].m=11) then  writeln('Этот человек родился в последний день данного месяца ');
     31: if (All[i].m=1) or  (All[i].m=3) or (All[i].m=5) or (All[i].m=7) or (All[i].m=8) or (All[i].m=10) or (All[i].m=12) then  writeln('Этот человек родился в последний день данного месяца ');
     else Writeln('Этот человек не родился в последний день данного месяца');
                   end;
          end;
 Readln;
 End.