Pascal/Turbo Pascal - como hacer un programa de fisica fundamental en free pascal

{Mira no se si esto es lo que quieres sino pon mas datos }

 program movimiento_rectilineo_uniforme;

   uses

     crt;

  const

     velini : integer = 20;

     velfin : integer = 80;

     tempo  : integer = 3;

     espaci : real = 0.0;

   var

     t : integer;

   begin

      clrscr;

      writeln(' **** Movimiento Rectilineo Uniforme ****');

      writeln;

      writeln('  Iniciamos En     : ',velini,' Kl');

      writeln('  Terminamos En    : ',velfin,' Kl');

      writeln('  Tiempo Invertido : ',tempo,' Horas');

      espaci := (velfin - velini) / tempo;

      writeln('  El Espacio Recorrido Es = ',espaci:0:2,' Kl Hora');

      gotoxy(2,10);write('Recorre ');

      if round(espaci) + 10 > 80 then

      writeln('  Se Sale De Pantalla')

   else

      begin

      for t := 0 to round(espaci) do

      begin

         gotoxy(10 + t,10);write('Ä');

      end;

      gotoxy((10 + t) + 1,10);write(' Kl');

     end;

      gotoxy(20,15);write('  Pulse Una Tecla');

      readkey;

      clrscr;

      writeln(' **** Movimiento Rectilineo Uniforme ****');

      writeln;

      writeln('   Entre Datos Para El Calculo ');

      writeln;

      write('  Posicion De Inicio En Kl   : ');

      readln(velini);

      write('  Posicion Final  En    Kl   : ');

      readln(velfin);

      write('  Tiempo Invertido En Horas  : ');

      readln(tempo);

      clrscr;

      writeln('  Iniciamos En     : ',velini,' Kl');

      writeln('  Terminamos En    : ',velfin,' Kl');

      writeln('  Tiempo Invertido : ',tempo,' Horas');

      espaci := (velfin - velini) / tempo;

      writeln('  El Espacio Recorrido Es = ',espaci:0:2,' Kl Hora');

      gotoxy(2,10);write('Recirre ');

      if round(espaci) + 10 > 80 then

      writeln('  Se Sale De Pantalla')

   else

      begin

      for t := 0 to round(espaci) do

      begin

         gotoxy(10 + t,10);write('Ä');

      end;

      gotoxy((10 + t) + 1,10);write(' Kl');

     end;

     gotoxy(20,15);write('  Pulse Una Tecla');

     readkey;

   end.