Calculo de Edad en Pascal

program edades;
uses
    wincrt;
var
   an,resta,ac:integer;
begin
     clrscr;
     writeln('ingrese año de nacimiento');
     readln(an);
     writeln('ingrese año actual');
     readln(ac);
     resta:=ac-an;
     writeln('la edad que tiene es ',resta);
     if (resta< 18) then writeln('es menor de edad')
     else writeln('es mayor de edad');
     repeat until keypressed
end.