FPS uždavinys

Sveiki, reikėtų Jūsų pagalbos įveikti vieną uždavinį.

Cilindro formos statinės, kurios aukštis H ir skersmuo D, šone išgręžtos labai mažos skylutės, kurių kiekvienos skersmuo d. Žinomas kiekvienos skylutės atstumas nuo statinės viršaus. Statinė iki viršaus pripildyta vandens. Per kiek laiko išbėgs vanduo iki apatinės skylutės? Vandens tekėjimo greitis pro skylutę, esančią aukštyje h, lygus Sqrt (2*g*h)

Šiek tiek programos pasirašęs esu:

program statine;
const g = 9.8;
type mas = array[1..50] of integer;

var H,           // aukštis
   D,           // skersmuo
   sd: integer; // skylutės skersmuo

   A: mas;      // skylučių atstumai nuo viršaus
   AU: mas;     // skylučių aukščiai
   n: integer;  // kiek yra skylučių

// surenka duomenis
procedure duomenys( var H, D, sd, n: integer; var A: mas );
var i: integer;
begin
 Write('Įveskite, kiek yra skylučių: ');
 ReadLn(n);
 Write('Įveskite statinės aukštį H: ');
 ReadLn(H);
 Write('Įveskite statinės skersmenį D: ');
 ReadLn(D);
 Write('Įveskite vienos skylutės skersmenį d: ');
 ReadLn(sd);
 WriteLn;
 // skylučių atstumų nuo viršaus suvedimas į masyvą
 for i := 1 to n do
 begin
   Write('Įveskite skylutės nr. ', i, ' atstumą nuo statinės viršaus (',H,'): ');
   ReadLn(A[i]);
 end;
end;

// paverčia skylučių atstumą nuo viršaus į aukštį, kuriame jos yra
procedure auksciai(n, H: integer; A: mas; var AU: mas);
var i: integer;
begin
 for i := 1 to n do
   AU[i] := H - A[i];
end;

// skaičiuoja, kiek statinėje telpa vandens (tūrį)
function turis(H, D: integer): real;
begin
 turis := pi * (D / 2) * H;
end;

// randa žemiausiai esančios skylutės aukštį
function zemiausia(AU: mas; n: integer): integer;
var i, min: integer;
begin
 min := AU[1];
 for i := 1 to n do
 begin
   if(AU[i] < min) then min := AU[i];
 end;
 zemiausia := min;
end;

begin
 duomenys(H, D, sd, n, A);
 auksciai(n, H, A, AU);
end.

Ir su tiek STOP. Manau, kad žengiu geru keliu, bet kas toliau?

Dėkoju iš anksto.