Pascal/Turbo Pascal - Pascal, alguna ayuda para este procedimiento

{Mira esto}

 program numeros;

 uses

    crt;

  var

    c, num : integer;

  begin

     clrscr;

     write('   Entre Un Numero Del 1 Al 9 : ');

     readln(num);

     writeln;

     write('  ');

     for c := 1 to num do

     write(' ',c);

     for c := 1 to num - 1 do

     write(' ',num - c);

     readkey;

  end.