Перевод чисел в различные системы счисления - Pascal (80625)

const
//цифры в СС 16
cf:string[16]='0123456789ABCDEF';
//тетрады для перевода 16 в 2
tetr:array[1..16] of string[4]=('0000','0001','0010','0011',
                                '0100','0101','0110','0111',
                                '1000','1001','1010','1011',
                                '1100','1101','1110','1111');
//триады для перевода 2 в 8
trd:array[1..8] of string[3]=('000','001','010','011',
                              '100','101','110','111');
var s16t,s16f,s2t,s2f,s8t,s8f,s:string;
    i:byte;
begin
write('Введите целую часть вещественного числа в СС 16: ');
readln(s16t);
write('Введите дробную часть вещественного числа в СС 16: ');
readln(s16f);
//переведем все в верхний регистр
for i:=1 to length(s16t)do
s16t[i]:=UpCase(s16t[i]);
for i:=1 to length(s16f)do
s16f[i]:=UpCase(s16f[i]);
writeln('Число в СС 16');
writeln(s16t+'.'+s16f);
//переведем в СС 2
s2t:=''; //целая часть
while length(s2t)mod 4<>0 do s2t:='0'+s2t;
for i:=1 to length(s16t) do
s2t:=s2t+tetr[pos(s16t[i],cf)];
while s2t[1]='0' do delete(s2t,1,1);
s2f:='';//дробная часть
while length(s2f)mod 4<>0 do s2f:=s2f+'0';
for i:=1 to length(s16f) do s2f:=s2f+tetr[pos(s16f[i],cf)];
while s2f[length(s2f)]='0' do delete(s2f,length(s2f),1);
writeln('Число в СС 2');
writeln(s2t+'.'+s2f);
//перевод в СС 8
while length(s2t) mod 3 <> 0 do s2t:='0'+s2t;
s8t:='';//целая часть
while s2t<>'' do
 begin
  for i:=1 to 8 do
  if copy(s2t,1,3)=trd[i] then s8t:=s8t+chr(i+47);
  delete(s2t,1,3);//удаляем триаду
 end;
while length(s2f) mod 3 <> 0 do s2f:=s2f+'0';
s8f:=''; //дробная часть
while s2f<>'' do
 begin
  for i:=1 to 8 do
  if copy(s2f,1,3)=trd[i] then s8f:=s8f+chr(i+47);
  delete(s2f,1,3);//удаляем триаду
 end;
writeln('Число в СС 8');
s:=s8t+'.'+s8f;
writeln(s);
end.