Определение одного параметра геометрической фигуры

Konus;
Uses crt;
Var h2,r1,r2,a,g,n: word; v,m,h1: real;
Begin
Clrscr;
Writeln('Введите радиусы усечённого конуса: ');
Write('r1: ');
Readln(r1);
Write('r2: ');
Readln(r2);
Writeln('Введите интервал значений изменения высоты: ');
Write('Начальное значение: ');
Readln(g);
Write('Конечное значение: ');
Readln(n);
Write('Введите размер шага: ');
Readln(m);
Write('Введите длину стороны куба: ');
Readln(a);
Write('Введите высоту h2 (малого конуса): ');
Readln(h2);
h1:=g;
Repeat
v:=(pi*h1*(sqr(r1)+sqr(r2)+r1*r2)+h2*pi*sqr(r2))/3;
h1:=h1+m;
h2:=h2+m;
Until v>=a*a*a;
Writeln('Высота усечённого конуса должна быть равна ',h1);
End.

uses crt;
{функция вычисления объема усеченного конуса по радиусам и высоте}
function V(r1,r2,h:real):real;
begin
V:=pi*h*(sqr(r1)+r1*r2+sqr(r2))/3;
end;
{функция вычисления высоты усеченного конуса по объему и радиусам}
function H(v,r1,r2:real):real;
begin
H:=3*v/(pi*(sqr(r1)+r1*r2+sqr(r2)));
end;
var h1,r1,r2,g,n,m,a,s,h2,y:real;
begin
clrscr;
repeat
writeln('Введите радиусы усечённого конуса, r2>r1:');
write('r1=');readln(r1);
write('r2=');readln(r2);
until (r1>0)and(r2>r1);{больше 0 и 2 больше 1}
repeat
write('Введите длину стороны куба: ');
readln(a);
until a>0;{больше 0}
repeat
{ввод интервала, он должен давать объем от меньше объема куба 
до больше объема куба}
writeln('Введите интервал значений изменения высоты n>g:');
write('Начальное значение g<',H(a*a*a,r1,r2):0:2,' g=');readln(g);
write('Конечное значение n>',H(a*a*a,r1,r2):0:2,'=');readln(n);
until (g>=0)and(g<H(a*a*a,r1,r2))and(n>H(a*a*a,r1,r2));
{ввод шага, он должен быть меньше разности нибольшего объема конума и объема куба}
repeat
write('Введите размер шага m<',H(V(r1,r2,n),r1,r2)-H(a*a*a,r1,r2):0:2,' m=');
readln(m);
until (m>0)and(m<H(V(r1,r2,n),r1,r2)-H(a*a*a,r1,r2));
h1:=g;
repeat
y:=V(r1,r2,h1);
h1:=h1+m;{вычисляем нужную высоту}
until y>=a*a*a;
writeln('Высота усечённого конуса должна быть равна ',h1:0:2);
h2:=3*y/(pi*sqr(r2));{вычисляем высоту полного конуса с тем же основанием}
s:=sqrt(sqr(h2)+sqr(r2));{вычисляем его образующую}
writeln('Высота конуса =',h2:0:2);
writeln('Его образующая=',s:0:2);
readln
End.