Программа выолняет перевод чисел из одной системы счисления в другую. Остался один небольшой пробел в программе. - Turbo Pascal

Формулировка задачи:

Нужно подпрограммами реализовать проверку корректности введенного числа (например, ‘123 b’ и ‘99 о’ – некорректны!). Помогите с этим моментом пожалуйста (если можно с объяснением). Сама программа ниже. Задание: с клавиатуры вводится целое число в одной из следующих систем счисления: двоичная, восьмеричная, десятичная. Отдельно соответствующей буквой (b, o, d) вводится обозначение исходной системы. В результате работы программа должна вывести значение введенного числа во всех перечисленных системах счисления. Пример: Введите число: 17 d Двоичное число: 10001 b Восьмеричное число: 21 o Десятичное число: 17 d Замечание:

Массивы и строки в реализации использовать запрещается.

Задача должна быть решена чисто вычислительным алгоритмом.

Program Laba;
 
{Данная программа предназначена для перевода чисел из одной системы
счисления в другую.}
 
Var
b,o,d,x: longint;
base: char;
 
{Функция ToDec переводит из 2-ой СС и 8-ой СС в 10-ую СС}
 
Function ToDec(x: longint; _base: byte): longint;
var S,pow: longint;
Begin
   S:=0;
   pow:=1;
   while x>0 do
   begin
      S:=S+(x mod 10)*pow;
      x:=x div 10;
      pow:=pow*_base;
   end;
   ToDec:=S;
end;
 
{Функция DecTo переводит из 10-ой СС в 2-ую и 8-ую}
 
Function DecTo(x: longint; _base: byte): longint;
var S,pow: longint;
Begin
   S:=0;
   pow:=1;
   while x>1 do
   begin
      S:=S+(x mod _base)*pow;
      x:=x div _base;
      pow:=pow*10;
   end;
   S:=S+x*pow;
   DecTo:=S;
end;
 
Begin
   Writeln('Введите число');
   Readln(x);
   Writeln('Введите основание системы счисления (b - 2-ая, o - 8-ая, d - 10-ая) ');
   Readln(base);
   if (base='b') then
   Begin
      b:=x;
      d:=ToDec(b,2);
      o:=DecTo(d,8);
   end;
   if (base='o') then
   Begin
      o:=x;
      d:=ToDec(o,8);
      b:=DecTo(d,2);
   end;
   if (base='d') then
   begin
      d:=x;
      b:=DecTo(d,2);
      o:=DecTo(d,8);
   end;
   Writeln('Двоичное число: ', b, ' b');
   Writeln('Восьмеричное число: ' ,o, ' o');
   Writeln('Десятичное число: ' ,d , ' d');
   Readln;
end.

Решение задачи: «Программа выолняет перевод чисел из одной системы счисления в другую. Остался один небольшой пробел в программе.»

textual
                            Листинг программы 
                        

                            var a,b:longint;
      base:byte;
      f:boolean;
begin
readln(a);
b:=a;
f:=true;
while (b>0)and f do
if b mod 10>b-1 then f:=false
else b:=b div 10;
                        