Pascal/Turbo Pascal - PROGRAMA EN PASCAL CON GOTOXY |URGENTE!!!!!

{Mira A ver si esto te ayuda }

 program gotoxyletras;

  uses

     crt, dos;

  var

    x1, y1, origen : Integer;

  procedure outtextxy(x, y : word; texto : string);

  var

      lx, ly : word;

      bit, posf, font, posi : byte;

      i, t : integer;

  begin

     ly := y;

   for posi := 1 to Length(texto) do

   begin

      lx := x;

      y := ly;

   for posf := 0 to 7 do

   begin

       font := mem[$ffa6:$e + (ord(texto[posi]) shl 3) + posf];

         for bit := 7 downto 0 do

         begin

          if (font and (1 shl bit)) <> 0 then

          begin

          gotoxy(x, y);write('*');

          end;

          x := x + 1;

          end;

          y := y + 1;

          x := lx;

        end;

          x := x + 8;

       end;

     end;

   begin

       origen := lastmode;

       textmode(c80);

       clrscr;

       x1 := 15;

       y1 := 5;

       outtextxy(x1,y1,'Hola');

       outtextxy(x1,y1 + 8,'Guate');

       readkey;

       textmode(origen);

   end.