关于登山机器人问题,高手请进。

题目描述
登山机器人是一个极富挑战性的高技术密集型科学研究项目。它涉及小车机械、飞行器控制、机器人学、机电一体化、单片机、数据融合、精密仪器、实时数字信号处理、图像处理与图像识别、知识工程与专家系统、决策、轨迹规划、自组织与自学习理论、多智能体协调、以及无线通讯等多项理论和技术，是一个典型的智能机器人系统。登山机器人为研究发展多智能体系统和多机器人之间的合作与对抗提供了生动的研究模型。
登山机器人可以携带有限的能量。在登山过程中，登山机器人需要消耗一定能量，并且可以在机器人之间通过接触传递能量。用多个登山机器人接力登山可以极大地提高登山机器人的攀登高度。
给定n个登山机器人（1<n<100）。第i个登山机器人最多可以携带Xi单位的能量，每攀高1米需要消耗能量Yi单位。开始登山时n个登山机器人均处于同一水平高度0，并且每个登山机器人初始时都携带了最多的能量。计算用这n个登山机器人进行不返回的接力登山可攀登的最高的高度。
输入格式
输入文件第1行中的整数为登山机器人个数n；接下来的n行中每行一个整数，依次为X1，X2，X3，……，Xn；最后的n行中每行一个整数，依次为Y1，Y2，Y3，……，Yn。
输出格式
输出文件只有一个数，为这n个登山机器人可攀登的最高的高度，精确到小数点后2位。
样例输入
2
50
50
0.01
0.01
样例输出
7500
我的程序:
var
   a     :array[1..100]of real; {pa gao nengli,}
   x     :array[1..100]of real; {xiedai nengliang,}
   y     :array[1..100]of real; {danwei xiaohao nengliang}
   n     :longint;
   i,j,k:real;
   cb    :longint;      {xunhuan}
   mi    :real;
procedure clamb;
var
   i,j   :longint;
   t     :real;
   robot:longint; {nengli qiangruo de jiqiren}
   step :longint;
   power:longint;{nengli qiangruo}
begin
   for cb:=1 to n do
     a[cb]:=(x[cb] / y[cb]);
   {   for i:= 1 to n do read(a[i]);    }
     for i:=1 to n -1 do
       for j:=n downto i+1 do
         if a[j-1]<a[j] then
           begin
             t:=a[j-1];
             a[j-1]:=a[j];
             a[j]:=t;
             t:=x[j-1];
             x[j-1]:=x[j];
             x[j]:=t;
             t:=y[j-1];
             y[j-1]:=y[j];
             y[j]:=t;