Построить ГСА по программе

program TEST5A;
type
Person=record
Name:string[16];
Birth:record
Day:1..31;
Mo:1..12;
Year:integer
end {birth}
end {person};

var
Table:array[1..10] of Person;
R: Person;
N,J,I,K:integer;
begin
Write (
umber of Person ?); Readln(n);
if N>10 then N:=10; if NTable[I+1].Name
then begin
R:=Table[i];
Table[i]:=Table[i+1];
Table[i+1]:=R
end; {if}
for I:=1 to N do
with Table[I], Birth do
Writeln (I, ., Name:18, Day:7, ., Mo:2,.,Year:4)
end.