Составить программу в Паскале

Составить программу, чтобы компьютер запросил имя пользователя и

его год рождения, затем подсчитал

количество лет, дней и минут, прожитых, примерно, этим человеком. Результаты вывести

на экран.

Type ye=1850 ... 2100;

var year, year1:ye;

name:string;

a:integer;

begin

writeln ('Какой сейчас год?') ;

readln (year) ;

writeln ('Твое имя?') ;

readln (name) ;

writeln ('В каком году ты родился (родилась) ?') ;

readln (year1) ;

a:=year-year1;

writeln ('Твое имя ', name) ;

writeln ('Ты прожил ', a, ' Лет (года) ') ;

writeln ('Ты прожил приблизительно ', a*365, ' дней') ;

writeln ('Ты прожил приблизительно ', a*364*24, ' часов') ;

end.