lab1(delphi)

program lab1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
    System.SysUtils;
var
    Gender: String;
    Age, Advice: Integer;
    IsCorrect: Boolean;
begin
    Writeln('Добро пожаловать в программу, в которой вы сможете определить
             подходящий возраст кандидатуры для вступления в брак');
    repeat
        Writeln('Введите ваш пол (М/Ж):');
        Readln(Gender);
    until (Gender = 'М') or (Gender = 'м') or (Gender = 'Ж') or (Gender = 'ж');
    Writeln('Введите ваш возраст (число):');
    repeat
        IsCorrect := True;
        try
            Readln(Age);
        except
            begin
                IsCorrect := False;
                Writeln('Введите ваш возраст (число):');
            end;
        end;
        if IsCorrect then
            if (Age < 0) or (Age > 122) then
            begin
                IsCorrect := False;
                Writeln('Введите ваш возраст (число):');
            end;
    until IsCorrect;
    if (Age < 18)  then
        Writeln('Вам рановато в брак')
    else
        if (Gender = 'Ж') or (Gender = 'ж') then
        begin
            Advice := age * 2 - 14;
            if (Age > 64) then
                Writeln('Подходящий возраст кандидатуры для вступления в брак:', Advice,
                        '. Но, думаю, мужчины до стольки не живут')
            else
                Writeln('Подходящий возраст кандидатуры для вступления в брак: ', Advice, '.');
        end
        else
        begin
            Advice := Age div 2 + 7;
            if (Age < 22) then
                Writeln('Подходящий возраст кандидатуры для вступления в брак: ', Advice,
                        '. Но, думаю, ей пока рановато')
            else
                Writeln('Подходящий возраст кандидатуры для вступления в брак: ', Advice, '.');
        end;
    Readln;
end.