Определить, является ли текст правильной десятичной записью целого числа

program int_input;
 
{задача с [url]https://www.cyberforum.ru/free-pascal/thread800615.html[/url]
 Вводится текст. Определить, является ли он
 правильной десятичной записью целого числа. }
{$mode objfpc}{$H+}
 
uses {$IFDEF UNIX} {$IFDEF UseCThreads}
  cthreads, {$ENDIF} {$ENDIF}
  Classes { you can add units after this };
 
var
  st, digits: string;
  i: integer;
  start: boolean;
 
begin
  Write('Enter an integr: ');
  readln(st);
 
  if not Length(st) > 0 then
  begin
    writeln('Input error.');
    exit;
  end;
 
  start := False;
  digits := '';
  for i := 1 to Length(st) do
  begin
    if (not start) and (st[i] in ['+', '-']) then
    begin
      start := True;
      Continue;
    end;
    if st[i] in ['0'..'9'] then
    begin
      start:= true;
      digits := digits + st[i];
      continue;
    end
    else
    begin
      writeln('String ''', st, '''', ' is not correct integer value.');
      readln;
      exit;
    end;
  end;
  if (length(digits) = 1) or ((Length(digits) > 1) and (digits[1] <> '0')) then
    writeln('String ''', st, '''', ' is correct integer value.')
  else
    writeln('String ''', st, '''', ' is not correct integer value.');
 
  readln;
end.