перевод в 10 СС

var
  s: string;
  i, b, a: integer;
  d, k: double;
  f, e: boolean;
  c: char;

begin
  Write('Ввведите основание системы: ');
  ReadLn(b);
  e := b <= 1;
  if e then
    WriteLn('Ошибка: основание системы должно быть не менее 2')
  else begin
    Write('Введите число в системе с основанием ', b, ': ');
    ReadLn(s);
    f := false;
    k := 1;
    for i := 1 to Length(s) do 
    begin
      if f then k := k / b;
      c := UpCase(s[i]);
      a := -1;
      case c of
        '0'..'9': a := Ord(c) - 48;
        'A'..'Z': a := Ord(c) - 55;
        '.', ',': if f then e := true else f := true;
      else f := true
      end;
      e := e or (a >= b);
      if e then break;
      if a >= 0 then d := d * b + a
    end;
    if e then
      WriteLn('Ошибка в записи числа')
    else
      WriteLn('Значение в десятичной системе: ', d * k)
  end;
end.