Pascal/Turbo Pascal - Duda ¿Cómo crear una interfaz GUI para mi programa?

program Temperature;

var

F,C,R,K:real;

begin

(*Presentación del programa*)

writeln('Convertidor de temperatura');

writeln('Programa creado por Benjamin C.');

(*Captura de datos*)

write('Escribe la temperatura en grados celcius:');

readln(C);

F:=1.8*C+32;

R:=F+459.67;

K:=C+273.15;

writeln('La temperatura en grados Fahrenheit es:',F:2:2);

writeln('La temperatura en grados Rankine es:',R:2:2);

writeln('La temperatura en grados Kelvin es:',K:2:2);

readln;

end.

{ Mira a ver si es algo parecido a esto }

program interfaz_GUI;

 uses

   crt, graph;

 var

   drive, mode : integer;

   F,C,R,K:real;

   ten, OrigMode: Integer;

  procedure iniciograficos;

  begin

      OrigMode := LastMode;

      drive := detect;

      initgraph(drive,mode,'c:\tp\bgi'); {modifica esto si no lo tienes así a tu configuración pascal}

      if graphresult <> 0 then

      halt(1)

    else

       begin

          outtextxy((getmaxx div 2) - (26 * 8),1,'Convertidor de temperatura Programa creado por Benjamin C.');

       end;

  end;

 procedure borrado(x, y : integer);

 var

   d, h : integer;

 begin

    for d := x to x + 8 do

     for h := y to y + 9 do

     begin

        putpixel(d,h,0);

     end;

 end;

 procedure temperatura;

 var

   Fahrenheit,Rankine,Kelvin : string[16];

   erro, t : integer;

   valorreal : string[16];

   tecl : char;

 begin

    t := 1;

    outtextxy(10,10,'Escribe la temperatura en grados celcius : ');

   repeat

       tecl := readkey;

       if tecl in[#48..#57,#46,#44] then

       begin

          if tecl = #44 then

          tecl := #46;

          valorreal[t] := tecl;

          valorreal[0] := chr(t);

          outtextxy((43 * 8) + t * 8,10,valorreal[t]);

          t := t + 1;

          if t > 16 then

          t := 16;

       end;

   if tecl = #8 then

   begin

      t := t - 1;

      if t < 1 then

      t := 1;

      valorreal[t] := ' ';

      valorreal[0] := chr(t);

      borrado((43 * 8) + t * 8,10);

   end;

   until tecl = #13;

    val(valorreal,f,erro);

    if erro > 0 then

    begin

       delete(valorreal,erro,1);

       val(valorreal,f,erro);

    end;

    ten := round(f);

    F := 1.8 * C + 32;

    R := F + 459.67;

    K := C + 273.15;

    str(f:2:2,Fahrenheit);

    str(r:2:2,Rankine);

    str(k:2:2,Kelvin);

    rectangle(4,27,450,40);

    outtextxy(10,30,'La temperatura en grados Fahrenheit es : ' + Fahrenheit);

    rectangle(4,47,450,60);

    outtextxy(10,50,'La temperatura en grados Rankine es : ' + Rankine);

    rectangle(4,67,450,80);

    outtextxy(10,70,'La temperatura en grados Kelvin es : ' + Kelvin);

   end;

  procedure termometro(tempe : real);

  var

    des, i : integer;

  begin

     rectangle(320,90,393,440);

     outtextxy(330,98,'§C');

     outtextxy(369,98,'§F');

     outtextxy(325,350,'40');

     outtextxy(325,330,'30');

     outtextxy(325,310,'20');

     outtextxy(325,290,'10');

     outtextxy(325,270,' 0');

     outtextxy(325,250,'10');

     outtextxy(325,230,'20');

     outtextxy(325,210,'30');

     outtextxy(325,190,'40');

     outtextxy(325,170,'50');

     outtextxy(364,350,'40');

     outtextxy(364,325,'20');

     outtextxy(364,305,' 0');

     outtextxy(364,285,'20');

     outtextxy(364,260,'40');

     outtextxy(364,240,'60');

     outtextxy(364,220,'80');

     outtextxy(364,195,'100');

     outtextxy(364,170,'120');

     circle(354,402,20);

     rectangle(349,382,359,100);

     for i := 0 to 8 do

     putpixel(350 + i,382,0);

     setcolor(13);

     for i := 1 to 19 do

     circle(354,402,i);

     setcolor(15);

  end;

 begin

     iniciograficos;

     temperatura;

     termometro(2.8);

     readkey;

     closegraph;

     TextMode(OrigMode);

 end.