Delphi - Programa que calcula edad

Me pueden ayudar con este programa en Delphi el cual dice Dado un nombre y año introducido por teclado, haga un programa que muestre por pantalla la edad de la persona

program CalcularEdad;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
nombre: string;
añoNacimiento, añoActual, edad: Integer;

begin
Write('Ingrese su nombre: ');
ReadLn(nombre);

// Validar que el nombre no esté vacío
if nombre = '' then
begin
WriteLn('Nombre inválido. Debe ingresar un nombre válido.');
ReadLn;
Exit;
end;

Write('Ingrese su año de nacimiento: ');
ReadLn(añoNacimiento);

añoActual := StrToInt(FormatDateTime('yyyy', Now));

// Validar que el año de nacimiento esté dentro de un rango válido
if (añoNacimiento < 1900) or (añoNacimiento > añoActual) then
begin
WriteLn('Año de nacimiento inválido. Debe ingresar un año entre 1900 y ', añoActual, '.');
ReadLn;
Exit;
end;

edad := añoActual - añoNacimiento;

WriteLn('Hola, ', nombre, '. Tienes ', edad, ' años.');

ReadLn;
end.