laba 1_2 delphi

Program lab_1_2;
Uses System.SysUtils;
Var I,N : integer;
S : int64;
IsCorrect : boolean;
Begin
Repeat
  IsCorrect := True;
  Writeln ('Введите степень, в которую следует возвести 2(не более 62): ');
Try
Readln(N);
Except
  Writeln ('Пожалуйста, введите натуральное число.');
IsCorrect := false;
End;
 If (IsCorrect) and (N<1) then
     Begin
       Writeln ('Натуральное число должно быть целым и положительным.');
      Iscorrect := False;
     End;
     If N > 62 then
     Begin
       Writeln ('Степень не должна быть больше 62!');
      Iscorrect := False;
     End;
Until (IsCorrect);
S:=1;
For I:=1 to N do
  Begin
     S := S*2;
End;
         Writeln ('2 в степени ', N, ' будет ', S);
         Readln (N,S);
End.