Выяснить, является ли строка идентификатором переменной или десятичной записью числа

program run;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
function IsDigit(c: Char): Boolean;
begin
  if (c >= '0') and (c <= '9') then Result := True else Result := False;
end;
 
function IsLetter(c: Char): Boolean;
begin
  if ((c >= 'a') and (c <= 'z')) or
     ((c >= 'A') and (c <= 'Z')) or
     (c = '_') then Result := True else Result := False;
end;
 
procedure Fail;
begin
  WriteLn('It''s not a number or variable');
  ReadLn;
  ReadLn;
end;
 
var s: string;
    i: Integer;
    isNumber, isVar, point: Boolean;
 
begin
  Write('Input string: ');
  Read(s);
  if Length(s) = 0 then Exit;
 
  isNumber := IsDigit(s[1]);
  isVar := IsLetter(s[1]);
 
  if (isNumber = False) and (isVar = False) then begin
    Fail;
    Exit;
  end;
 
  point := False; // Точка
  for i := 2 to Length(s) do begin
    if isNumber then
    if IsDigit(s[i]) = False then
    if s[i] = '.' then
    if point then begin // Точка уже была найдена
      Fail;
      Exit;
    end else begin
      if i <> Length(s) then // Точка - последний символ?
        point := True
      else begin // Таки да, последний
        Fail;
        Exit;
      end;
    end;
 
    if isVar then
    if (IsLetter(s[i]) = False) and
       (IsDigit(s[i]) = False) then begin
      Fail;
      Exit;
    end;
  end;
 
  if isNumber then WriteLn('It''s a number');
  if isVar then WriteLn('It''s a variable');
  ReadLn;
  ReadLn;
end.