Pascal/Turbo Pascal - ayuda programa pascal URGENTE

{aquí esta bien}

  program figuras;

  uses

     crt;

  var

    p, t, num, cont : integer;

  begin

     clrscr;

     write('  Entre Numero : ');

     readln(num);

     cont := 0;

     p := 1;

     t := 1;

   while cont < num  do

   begin

       writeln((num - cont) : 2 + (p * 2));

       t := t + 1;

       if t < (num div 2) + 2 then

       p := p + 1;

       if t > (num  div 2) + 1 then

       p := p - 1;

       cont := cont + 1;

   end;

   readkey;

  end.