блок схема к программе

[emin313gs]

uses crt,dos;
var God,Mes,Den,Den_Ned,Chas,Min,Sec,So tki:Word;
myGod,myDen,myMes:word;
hisGod,HisDen,hisMes:word;
begin
clrscr;

GetDate(God,Mes,Den,Den_Ned);

writeln('устоновите дату 1го человека: ');
Write('‚введите день: '); Read(myDen);
write('Введите месяц: '); Read(myMes);
write('введите год: '); Read(myGod);
Writeln('Вашь возраст ', god-myGod);
Writeln('--------------------------------------');
Writeln('устоновите дату 1го человека*: ');
Write('введите день: '); Read(HisDen);
write('введите месяц: '); Read(HisMes);
write('введите год: '); Read(HisGod);
Writeln('его возраст ', god-hisGod);
writeln('--------------------------------------');
if god-MyGod>god-hisGod then Writeln('первый человек старше второго');
if god-MyGod<god-hisGod then Writeln('второй человек старше первого');

if myGod=hisGod then
begin
if myMes>hisMes then Writeln('второй человек старше первого');
if myMes<hisMes then Writeln('первый человек старше второго');

if myMes=hisMes then
begin
if myDen>hisDen then Writeln('Второй человек старше первого');
if myDen<hisDen then Writeln('первый человек старше второго');
if myDen=hisDen then Writeln('Эти люди равны по возросту');
end;
end;



readln;
readln
end.



заранее спасибо