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

var
sim:array[1..32]of real;
s,s1:string;
h,p:real;
c:char;
a,i,j,e:integer;
begin
readln(s);
if length(s)<=64 then begin
a:=1;s1:='';
 
 
while a<=length(s) do begin
 
 
repeat 
a:=a+1;
until (s[a]<>' ') or (s[a]<>':');
 
 
while (s[a]<>' ') or (s[a]<>':') do begin
s1:=s1+s[a];
a:=a+1;
end;
 
 
if s1<>'' then begin e:=e+1;
 
 
 for i:=1 to (length(s1)div 2) do begin
 c:=s1[i]; s1[i]:=s1[length(s1)-i+1]; s1[length(s1)-i+1]:=c;
end; 
 
 
h:=ord(s1[1])-48;
 
 
for i:=2 to length(s1) do begin
p:=1;
for j:=1 to i-1 do
p:=p*6;
h:=h+p*(ord(s1[i])-48);
end;
s1:='';
 
 
sim[e]:=h;
end; 
a:=a+1;
end;
end;
 
if length(s)>64 then writeln('Больше 64 символов.');
 
for i:=1 to 32 do 
if sim[i]<>0 then writeln(sim[i]);
end.

var
s:string;
a:array[1..35]of real;
 
procedure sis(s1:string;var h:real);
var p:real; i,j:integer;
begin
h:=ord(s1[1])-48;
for i:=2 to length(s1)do begin
p:=1;
for j:=1 to i-1 do 
p:=p*6;
h:=h+p*(ord(s1[i])-48);
end;end;
 
procedure sus(s:string; var a:array of real);
var i,e:integer; s1:string; h:real;
begin
e:=0; i:=1; s1:='';
while i<=length(s) do begin
if (s[i]<>' ') or (s[i]<>':') then begin e:=e+1;
       while (s[i]<>' ') or (s[i]<>':') do begin
       s1:=s1+s[i]; i:=i+1; end;
       sis(s1,h);
       a[e]:=h;
       s1:=' ';
       end else i:=i+1; end;
end;
 
procedure ses(a:array of real);
var i:integer;
begin
for i:=1 to 35 do
if a[i]<>0 then write(a[i],' ');
writeln;
end;
 
begin
readln(s);
sus(s,a);
ses(a);
end.