Доброе утро! Нужна помощь в решении задач по физике в паскале (построение траектории), 1 курс колледжа, программа 10-11 класс

Задача: Пузырёк воздуха поднимается со дна ведра с водой. Написать программу, строящую график движения высоты от времени y(t) пузырька воздуха, если: плотность воды 1000 кг/м^3, плотность воздуха 200 кг/м^3, глубину ведра вводим с клавиатуры, зависимость объёма пузырька от его глубины считать линейной с коэффициентом 1

program bubble;

const rho_water = 1000; 

 rho_air = 200;   g = 9.81;     

 pi = 3.14; 

var h, y, v_y, r, V, F_a, F_g, dt: real;

 t: real; 

 zapis: text;

 Put: string;

begin 

 Put := 'C:\Users\Пользователь\Desktop\Саша колледж\физ моделирование\a.txt'; assign(zapis, Put);

 rewrite(zapis); 

  writeln('Введите глубину ведра (в метрах):');

 readln(h); 

  y := 0;         

 v_y := 0;        r := 0.05;       

 dt := 0.01;        

 writeln('Время, [с]  Высота, [м]'); writeln(zapis, 'Время, [с]  Высота, [м]');

 V := (4 / 3) * pi * r * r * r; 

  F_a := V * rho_water * g; 

 F_g := V * rho_air * g;  

 t := 0; 

 while y < h do

 begin  

 if t > 0 then

  begin   

   v_y := v_y + ((F_a - F_g) / (rho_air * V)) * dt;   

      y := y + v_y * dt - 0.5 * g * dt * dt;

   if y <= h then

   begin    

    writeln(t:6:2, '     ', y:12:4);    writeln(zapis, t:6:2, '     ', y:12:4);

   end;  end;

    t := t + dt;

 end; 

  close(zapis);

end.

вот такого формата