Pascal/Turbo Pascal - AYUDA PROGRAMA TURBO PASCAL ES PARA MAÑANA!!!!

Program escribeenteros

var 1, contador integer;

       Begin

                 write ("introduzca numero maximo de enteros: ");

                 ReadIn (n)

                 For contador = 1 downto 1 do

                            write (contador; " ");

                 writeIn ("fin de programa. Contador = "; contador)

       end.

{A ver si esto lo entiendes mejor}

program contador1;

uses

     crt;

var

    t, contador : integer;

begin

      clrscr;

      write('  Entre el numero de contador : ');

      readln(contador);

      writeln;

      for t := contador downto 1 do

      writeln('   ',t);

     readln;

 end.