Pascal/Turbo Pascal - Necesito una Guia

Talves si me podeis guiar, necesito hacer una funcion en la cual voy a declarar una identificación para un estudiante la cual va a tener 15 posiciones numericas, ahora debo rellenar con ceros a la izquierda las posiciones que queden vacias ejemplo si introduzco 2501452 debe quedar 000000002501452 si me podeis guiar un poco te agradecere [email protected]

Veamos:

Function Fill_ID(IDStr :String) :String;
Begin
While (Length(IDStr)<15) do
IDStr := '0' + IDStr;
Fill_ID := IDStr;
End; {Fill_ID}

Sólo le pasas una cadena con el número asignado y te devuelve la cadena completada a 15 caracteres.

Saludos ;-)

Program Llenar_Cadena;
Uses Crt;

Var
numero : longint;
pos,i : integer;
cadena : string[15];

Begin
clrscr;
readln(numero);

Str(numero, cadena);
pos:=15 - length(cadena);
for i:= 1 to pos do
insert('0',cadena,i);

writeln('Resultado Cadena = ',cadena,' Con ',pos,' Ceros ');
readln;

End.

Esto te puede ayudar es una de las tantas formas como puedes hacerlo.
Me comentas como te va.

Puedes hacer una funcion muy sencilla para eso.

gracias amigos me ayudo bastante no tenia ni idea de como hacerlo, aunque eso es solo una parte del programa que me dejaron, trata de listas doblemente enlazadas cisculares y adivinen que no entiendo!!!