Pascal/Turbo Pascal - Inicializar String

Buenas,
A ver si puede ayudarme alguien. Necesito inicializar un String hasta un número de caracteres determinados,porque si no lo hago el programa no escribe en el string (¿esto es normal?). Entonces he probado a hacer esto:

FOR contador:=1 TO maximo DO
cod[contador]:='z';

Pero la cosa no funciona, no me vale hacerlo a lo bestia (por ejemplo; cod:='zzzzzzzzzzzz') porque maximo es una variable.

Gracias y Feliz Navidad ;)

Eh, no, esa no es la forma de hacerlo porque estás asignando caracteres a una posición fija sin actualizar el tamaño dinámico del string.

Hay varias formas de hacerlo, una sería:

cod:='';
FOR contador:=1 TO maximo DO
cod:=cod+'z';

Otra sería:

cod:='';
FOR contador:=1 TO maximo DO
cod[contador]:='z';
cod[0]:=maximo; { suponiendo que "maximo" sea de tipo byte }