Pascal/Turbo Pascal - cual es el tamaño de la variable puntero al iniciar un programa?

program memoria;

 uses

    crt;

  type

    nombre = string[50];

    puntero = ^nombre;

  var

    punteros : array[1..2500] of puntero;

    begin

       clrscr; {Fijate en lo que marca esta salida es lo que ocupa

                todo el puntero o sea el array rellenes o no el

                string el consumo de memoria sera el mismo}

       writeln(sizeof(punteros),' Bytes');

       writeln(sizeof(nombre));   {esto ocuparia nombre}

       readkey;

    end.

var

pp:pointer;  //puntero sin tipo o pointer

pb:^byte;  //puntero de tipo byte o apunta a un byte

type

ps=^string; //puntero de tipo string o apunta a un string

pst=string[50];

//puntero de tipo string[50] a apunta a un string

//aqui hay truco por que realidad no toma solo 50 caracteres sino que

//lo toma como string completo lo vermos mas adelante

pst1=^pst;

var

pst2:pst1;

punteroString:array [1..2500]of ps;

punteroStringtamano:array [1..2500] of pst1;

begin

   writeln(sizeof(pp));//nos dice que vale 4 bytes

   writeln(sizeof(pb));//nos dice que vale 4 bytes

   writeln(sizeof(ps));//nos dice que vale 4 bytes

   writeln(sizeof(pst2));//nos dice que vale 4 bytes

   writeln(sizeof(punteroString));//nos dice que vale 10,000 bytes porque 2500*4=10,000

   writeln(sizeof(punteroStringtamano));//nos dice que vale 10,000 bytes   2500*4=10,000

   //aqui esta el truco por aparentemente pst1 es un puntero de string[50] pero el compilador

   //no entiende eso y lo trabaja como si fuera uno normal osea uno de 4 bytes

  readln;

end.