Составить блок схему к готовому коду

uses crt;
const mes:array[1..12] of string[10]=('ÿíâàðÿ','ôåâðàëÿ','ìàðòà','àïðåëÿ','ìàÿ',
          'èþíÿ','èþëÿ','àâãóñòà','ñåíòÿáðÿ','îêòÿáðÿ','íîÿáðÿ','äåêàáðÿ');
var n,m,d:integer;
begin
clrscr;
repeat
write('Ââåäèòå íîìåð äíÿ â ãîäó îò 1 äî 365 n=');
readln(n);
until(n>0)and(n<366);
case n of
1..31   :begin
         m:=1;
         d:=n;
         end;
32..59  :begin
         m:=2;
         d:=n-31;
         end;
60..90  :begin
         m:=3;
         d:=n-59;
         end;
91..120 :begin
         m:=4;
         d:=n-90;
 
         end;
121..151:begin
         m:=5;
         d:=n-120;
         end;
152..181:begin
         m:=6;
         d:=n-151;
         end;
182..212:begin
         m:=7;
         d:=n-181;
         end;
213..243:begin
         m:=8;
         d:=n-212;
         end;
244..273:begin
         m:=9;
         d:=n-243;
         end;
274..304:begin
         m:=10;
         d:=n-373;
         end;
305..334:begin
         m:=11;
         d:=n-304;
         end;
335..365:begin
         m:=12;
         d:=n-334;
         end;
end;
writeln('Äåíü  è ìåñÿö:');
if d<10 then write('0',d,' ')
else write(d,' ');
write(mes[m]);
readln
end.