Представить заданное число в виде обыкновенной дроби

uses crt;
var f,g:text;
    s,p,d,z:string;
    y,a,b,m,k,ch,zn,i:integer;
begin
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
readln(f,s);
write(s,'=');
write(g,s,'=');
close(f);
if pos(',',s)>0 then s[pos(',',s)]:='.';//если запятая, заменим на точку
y:=strtoint(copy(s,1,pos('.',s)-1));//целая часть числа
delete(s,1,pos('.',s));//удалим целую часть и точку
p:=copy(s,pos('(',s)+1,pos(')',s)-pos('(',s)-1);//часть строки в скобках
k:=length(p);//количество цифр в периоде
d:=copy(s,1,pos('(',s)-1);//часть строки между точкой и 1 скобкой
b:=strtoint(d); //число в дробной части до периода (без ведущих нолей)
m:=length(d);//количество цифр в дробной части до периода
//составляем число а из всех цифр дробной части без ведущих нолей
while d[1]='0' do delete(d,1,1);//удалим ведущие ноли
d:=d+p;//конкатенируем 2 строки
a:=strtoint(d);//получаем а
//составляем числитель дроби
ch:=a-b;
//составляем знаменатель дроби
z:='';
for i:=1 to k do
z:=z+'9';
for i:=1 to m do
z:=z+'0';
zn:=strtoint(z);
//сокращанм дробь
i:=2;
while(i<=ch)and(i<=zn) do
 begin
  if(ch mod i=0)and(zn mod i=0) then
   begin
    ch:=ch div i;
    zn:=zn div i;
   end
  else i:=i+1
 end;
writeln(y,'+',ch,'/',zn);
writeln(g,y,'+',ch,'/',zn);
close(g);
end.

a:=strtoint(d);//получаем а