Pascal/Turbo Pascal - mostrar 2 lineas d texto a la vez?

{Espero esto te sirva como ejemplo}

 program aleatori;

 uses

   crt;

  var

    x, y, x1, y1, num1, num2  : integer;

    tec : char;

  begin

     randomize;

     clrscr;

     gotoxy((80 div 2) - 23,1);write('Para Finalizar Pulse [Enter]');

   repeat

    if keypressed then

    tec := readkey;

    num1 := random(100);

    num2 := random(150);

    x := random(67);

    y := random(25);

    x1 := random(67);

    y1 := random(25);

    if x < 1 then

    x := 1;

    if y < 3 then

    y := 3;

    if x1 < 1 then

    x1 := 1;

    if y1 < 3 then

    y1 := 3;

    gotoxy(x,y);write('Linea 1 : ',num1);

    gotoxy(x1,y1);write('Linea 2 : ',num2);

    delay(500);

    gotoxy(x,y);clreol;

    gotoxy(x1,y1);clreol;

   until tec = #13;

  end.