laba 1_1 delphi

program lab_1_1;
Uses
    System.SysUtils;
var Age, C: integer;
IsCorrect : boolean;
const B = 18;
begin
 Repeat
            IsCorrect := True;
            writeln ('Сколько Вам лет?');
            Try
              ReadLn(Age);
            Except
                Writeln('Вы ввели не число, попробуйте снова.');
                IsCorrect := False;
            End;
            If ((IsCorrect) And (Age < 1)) Then
                Begin
                Writeln('Ожидалось положительное число.');
                IsCorrect := False;
                End;
        Until(IsCorrect);
    if Age < B then
     begin
     C := B-Age;
  write ('Вам будет предоставлено право голосовать через ', C);
   if C > 4 then
    begin
       writeln (' лет');
    end
    else if C = 1 then
     begin
       writeln (' год');
    end
    else   begin
        writeln (' года');
    end;
  end
  else
  begin
  writeln ('Вы имеете право голосовать');
  end;
    readln(Age,C) ;
    end.