Program Menghitung Umur

program menghitung_umur;
uses wincrt;
var nama: string;
umur,TL: integer;
begin

writeln ('nama :'); readln (nama);
writeln ('tahun lahir :'); readln (TL);
writeln ('umur pada tahun 2012:');
umur:=2012-TL;
writeln (umur);
end.