Оптимизировать и помочь устранить ошибки.

[Picaso18]

Программа перевода из одной системы счисления в другую.
пока не полная.

Program Perevodnumber;
uses crt;
label sis1,sis,zapit;
Var
m,n,zap:string;
k,x,z,zap1,y,b,c,x2:integer;
x1,otvet1,otvet2:real;
begin
clrscr;
gotoxy(15,1);
Writeln('Перевод чисел  в позиционных систем счисления');
gotoxy(1,3);
zapit:Writeln('Введите целое число');
Readln(x);
str(x,m);
zap:=',';zap1:= Pos(zap,m);
if zap1<>0 then Begin  Writeln('Вы ввели  не целое число , попробуйте ещё');
goto zapit; End Else
z:=length(m);
sis:Writeln('Система счисление в которой находится число (2,8,10,16)');
Readln(b);
case b of
2:Write;
8:write;
10:write;
16:Write;
Else goto sis;
end;
sis1:Writeln('Систему систему в которую перевести число');
Readln(c);
case c of
2:Write;
8:Write;
10:write;
16:write;
Else goto sis1;
end;
if b = c Then begin writeln('Конечный результат',x);exit; end else;
if b <> 10 Then Begin for y:=1 to z-1 do begin  val(m[y],x1,k);
Otvet1:= x1 * (exp(y * ln(b)));otvet2:=otvet1+otvet2;Writeln(Otvet2,x1) ; end;  end  Else;
Otvet2:=OTvet2 + 1;
Writeln(otvet2:6:2);
Readln(n);{нечегоне значит}
End.

можно написать как оптимизировать прогу.

[capta1n]

uses crt;
var
 o,n,r : integer;
 s : string[16];
 buf : string[1];
begin
  clrscr;
  write ('Vvedite celoe 4islo -> ');
  readln (n);
  write ('Vvedite osnovanie sistemi s4isleni9 -> ');
  readln (o);
  s:='';
  repeat
    r:=n mod o;
    n:=n div o;
    str (r,buf);
    s:=buf+s
  until n<o;
  str (n,buf);
  s:=buf+s;
  writeln (s);
  readln

end.