перевод чисел

[Adeptus Stoybatus]

Даны два числа в десятичной системе счисления. Написать программу, которая выполняет следующие действия: (546.359)
1. Перевести оба числа в систему счисления согласно варианту
2. Выполнить над переведенными числами машинную операцию согласно варианту.
3. Выполнить операцию над числами в десятичной системе счисления и перевести результат в данную систему счисления.
4. Сравнить полученные результаты.

program test;
  var a,b,c,d,f,i,e,j,o,r,h,n,q,g,s,m,l :integer;
x,y,z,u,p: string;
begin
 writeln ('первое число');
 readln (a);
 writeln ('второе число');
 readln (d);
 g:=a;
 s:=d;
 b:=16;
 x:='';
 y:='';
 z:='0123456789abcdef';
 while a>=b do
 begin
 c:= a mod b;
 x:=z[c+1]+x;
 a:=a div b;
 end;
 while d >=b do
 begin
 f:= d mod b;
 y:=z[f+1]+y;
 d:=d div b;
 end;
 begin
 x:=z[a+1]+x;
 y:=z[d+1]+y;
 val(x,i,e);
 val(y,j,o);
 writeln ('перевод первого числа=',i);
 writeln ('перевод второго числа=',j);
 end;
 begin
 r:=i-j;
 writeln ('разность переведенных чисел=',r);
 end;
 begin
h:=g-s;
writeln ('разность непереведенных чисел=',h);
n:=16;
u:='';
p:='0123456789abcdef';
end;
while h>=n do
begin
g:= h mod n;
u:=p[g+1]+u;
h:=h div n;
u:=p[h+1]+u;
writeln ('разность переведенная=',u);
end;
begin
val(u,l,m);
if l>r then writeln ('первая разность больше');
if r<l then writeln ('вторая разность больше');
if r=l then writeln ('разности равны');
end;
end.

ребят я на верном пути?

[Adeptus Stoybatus]

ну так че некто прям и не знает как ответить?мне буквально нада сравнить уже полученные ответы.

[p51x]

ну так че некто прям и не знает как ответить?

ну так че некто прям и не знает как пользоваться поиском?

Переводы уже кучу раз были.