Нужно составить блок-схему (подскажите, как обозначается With Do)

Const nmax=30;
Type TDate=Record
       day,month,year:integer;
      End;
     TTime=Record
       hour,minuten,second:integer;
      End;
     DateAndTime=Record
      date:TDate;
      time:TTime;
     End;
Function Compare(A,B:DateAndTime):boolean;
Var flag:boolean;
Begin
    flag:=false;
    if A.date.year>B.date.year then flag:=true
     else if A.date.month>B.date.month then flag:=true
      else if A.date.day>B.date.day then flag:=true
       else if A.time.hour>B.time.hour then flag:=true
        else if A.time.minuten>B.time.minuten then flag:=true
         else if A.time.second>B.time.second then flag:=true;
    Compare:=flag;
End;
Var A:array[1..nmax] of DateAndTime;
    i,j,count:integer;
    temp:DateAndTime;
Begin
    Repeat
     write('Введите количество записей: ');
     readln(count);
    Until (count>0)and(count<=nmax);
    For i:=1 to Count do
    Begin
      writeln('Информация о ',i,' записи');
      With A[i] do
      Begin
        With date do
        Begin
          write('Число: ');readln(day);
          write('Месяц: ');readln(month);
          write('Год: ');readln(year);
        End;
        With time do
        Begin
          write('Час: ');readln(hour);
          write('Минута: ');readln(minuten);
          write('Секунда: ');readln(second);
        End;
      End;
    End;
    For i:=Count downto 2 do
     For j:=2 to i do
      if Compare(A[j-1],A[j]) then 
      Begin
        temp:=A[j-1];
        A[j-1]:=A[j];
        A[j]:=temp;
      End;
    writeln;
    writeln;
    For i:=1 to Count do
    Begin
      With A[i] do
      Begin
        With date do
         write(day,'.',month,'.',year,' ');
        With time do
         write(hour,':',minuten,':',second);
      End;
      writeln;
    End;
    readln;
end.

    For i:=1 to Count do
    Begin
      writeln('Информация о ',i,' записи');
      write('Число: ');readln(A[i].date.day);
      write('Месяц: ');readln(A[i].date.month);
      write('Год: ');readln(A[i].date.year);
      write('Час: ');readln(A[i].time.hour);
      write('Минута: ');readln(A[i].time.minuten);
      write('Секунда: ');readln(A[i].time.second);
    End;

function Compare(A,B: DateAndTime): Boolean;
begin
  Compare:=false;
  if      A.date.year   >B.date.year    then Compare:=true
  else if A.date.month  >B.date.month   then Compare:=true
  else if A.date.day    >B.date.day     then Compare:=true
  else if A.time.hour   >B.time.hour    then Compare:=true
  else if A.time.minuten>B.time.minuten then Compare:=true
  else if A.time.second >B.time.second  then Compare:=true;
end;