Написать программу, которая проверяет, является ли введенная с клавиатуры строка целым числом — Pascal(Паскаль)

program t;
var a,st:string;
i,ind,b:integer;
begin
  a := '1234567890';
  Writeln('Vvedite stroky');
  Readln(st);
  b := length(st);
  ind := 0;
  For i := 1 to b do
  begin
    if pos(st[i], a) <> 1 then
    begin
      Writeln('Vvedennaia stroka - ne celoe chislo');
      ind := 1;
      break;
    end;
  end;
  if ind = 0 then
    Writeln('Vvedennaia stroka - celoe chislo');

end.