Нужна помощь по циклам в freepascal

Здраствуйте, помогите пожалуйста с решением задачи, я сделал с помощью одного цикла (предпроверка условия while), а с помощью остальных циклов (счетчик -for и постпроверка условия - repeat) эту же задачу не могу сделать.

Вот условие задачи:
На воду опущен шар радиуса r, изготовленный из вещества плотности p(p<1). Найти расстояние от центра шара до поверхности воды. Указание. При составлении программы воспользоваться формулой объема шарового сегмента высоты h: V = p*h^2 (3r - h)/3, где r - радиус шара, h - высота шарового сегмента.

Вот листинг программы (цикл while):

Код:

unit Unit1;

{$mode objfpc}{$H }

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }


procedure TForm1.Button1Click(Sender: TObject);
const
  e = 0.00001;
  pv=1.03;
var
  R, p, h, d, c: real;
begin
r:=strtoint(form1.Edit1.Text);
p:=strtoint(form1.Edit2.Text);
  h:=0;
  d:=4*r;
  c:=4*p*r*r*r;
  while abs(pv*h*h*(3*r-h)-c)>e do
  begin
    if d*(pv*h*h*(3*r-h)-c)<0 then
      d:=d/2
    else
      d:=-d/2;
    h:=h d;

 end;
  form1.Label6.Caption:='  ' floattostrf((r-h),fffixed,0,1);

end;




initialization
  {$I unit1.lrs}

end.


Помогите пожалуйста.