Числа по основанию 2 и 8. Выполнить операцию умножения.

uses crt;
  {Конвертирует строку s с символьной записью числа x по основанию b<=16 в целое. 
  При успешном выполнении возвращает true}
  function Convert(var x: LongInt; s: String; b: Byte): Boolean;
  var
    i, p, q: Integer;
  begin
    Convert:=false;
    x:=0;
    q:=1;
    if not b in [2..16] then Exit;
    for i:=Length(s) downto 1 do
    begin
      p:=Ord(s[i]);
      case p of
        48..57: p:=p-48; {0..9}
        65..70: p:=p-55; {A..F}
       97..102: p:=p-87; {a..f}
           else Exit;
      end;
      if p>=b then Exit;
      x:=x+p*q;
      q:=q*b;
    end;
    Convert:=true;
  end;
 
var
  i: Integer;
  x, y: LongInt;
  b: Byte;
  s: String;
begin
  ClrScr;
  y:=1;
  for i:=1 to 2 do
  begin
    b:=2+6*(i-1);
    repeat
      Write('Введите число по основанию ', b, ' ');
      Readln(s);
    until Convert(x, s, b);
    Writeln('x', i, '=', x);
    y:=y*x;
  end;
  Writeln('y=', y);
  Readln;
end.