Приведите словестное описание алгоритма сложения двух обыкновенных дробей a/b и c/d​

1) 2,375+(х+1,627)=4,56

    х+1,627=4,56-2,375

    х+1,627= 2,185

    x=2,185-1,627 

    x=0,558

проверка:   2,375+( 0,558 +1,627)=4,56 

                    2,375+2,185=4,56

                    4,56=4,56

ответ: х=0,558

2,а) 8,6-(х+2,75)=1,85         проверка: 8,6-(4+2,75)=1,85 

        х+2,75=8,6-1,85                           8,6-6,75=1,85

        х+2,75 =6,75                                 1,85=1,85

        х=6,75-2,75

        х=4 

      ответ: х=4

  2,б) 5,732+(х+7,269)=645     проверка: 5,732+( 631,999 +7,269)=645 

          х+7,269=645-5,732                         5,732+639,268=645

          х+7,269=639,268                           645=645

          х=631,999

ответ:   х=631,999

  2,в) 29,1-(х+7,08)=6-4,357   проверка: 29,1-( 20,377 +7,08)=6-4,357 

          29,1-(х+7,08)=1,643                         29,1-27,457=1,643

          х+7,08=29,1-1,643                           1,643= 1,643  

          х+7,08=27,457

          х=  27,457- 7,08

          х=20,377

ответ:   х=20,377

Много лишнего(наверно), только с олимпиады!Как есть.
uses crt;
var b,n,i,k,c,o,x1:integer;
    f,s,ch:string;
    r,g: text;
    A:array [0..9] of integer;
begin
assign (r,'C:\Bin.txt');
reset (r);
readln (r,f);
close (r);
for i:=1 to length(f) do
begin
s:=copy(f,1,1);
if (s<>'0') or (s<>'1') or (s<>'2') or (s<>'3') or (s<>'4') or (s<>'5') or (s<>'6') or (s<>'7') or (s<>'8') or (s<>'9')then
delete(f,1,1);
if (s='0') or (s='1') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or (s='8') or (s='9')then
begin
x1:=pos(s,ch);
if x1<>0 then
begin
delete(ch,x1,1);
ch:=ch+s;
end
else
ch:=ch+s;
end;
end;
val(ch,n,o);
  N := Abs(N);
  for i := 0 to 9 do
  A[ i ] := 0;
  while N > 0 do
  begin Inc(A[ N mod 10]);
  N := N div 10;
  end;
assign (g,'C:\Bout.txt');
rewrite (g);
  for i := 0 to 9 do
  while A[ i ] > 0 do
  begin Write(g,i);
  Dec(A[ i ]);
  end;
  close(g);
end.