Pascal/Turbo Pascal - NECESITO AYUDA (PASCAL)

Hola, soy estudiante de ingeniería de primer año y estoy haciendo programación en pascal. Necesitaría ayuda con un programa que estoy intentando hacer, pero la verdad es que no sé muy bien como hacerlo. El programa consiste en hacer un procedure que dada una palabra, la complete con espacios hasta tener una longitud 20. Pad(w). Usando también la función length().

Por ejemplo:
p:='hola';
Pad(p);
writeln(p,'|');

resultado:
hola................|

Espero que me puedan ayudar y agradezco de todas formas webs como estas. Muchas gracias.

if Length(p) < 20 then
for i:= Length(p)+1 to 20 do p:=p+' ';

easy...

"easy...."
Claro, si nos fijamos preguntas faciles para contestar, todos nos sentimos dioses jajajaja
Pobre pibe...
En fin, a ver. Para ke meter un condicional IF y un bucle FOR si la sentencia WHILE es CONDICIONAL Y BUCLE???

while (Length(p)<20) do
p:=p+' ';

"easy" no?

En primera yo no sé qué es "peguntas fáciles" para ti (ni me interesa, la verdad) y para responder a tu pregunta pues probablemente porque el "pibe" recién empieza a programar y no comprende cómo funciona el while. Alguien que probablemente nunca enseñó programación tal vez no se de cuenta.

Esa es la diferencia entre alguien que solo busca preguntas difíciles para responder (para demostrar su mucha sabiduría tal vez?) y alguien que simplemente ayuda sin mirar a quién ;).

A propósito, esto es aún mejor:

const
strspaces=' ';

...

P:=P+copy(strspaces,1,20-Length(P));

Easy ;).

A eso mismo me refieron, con tu "easy" no buscas ayudar ;)
Solo buscas demostrar ke sabes... bien podrias haberle explicado el while, pero alguien ke seguramente enseño durante siglos programacion tal vez no se de cuenta?
Ke perdida de tiempo...

PD: keres seguir demostrando ke sabes, en vez de ayudar ;)

Estás admitiendo que vienes a darme una lección, no a ayudar...

program palabra;
var
P, P1 :string;
D:INTEGER;

BEGIN
WRITE('Indicar palabra: ');
READ(P);

{Calcular cuantos espacios faltan para llegar a 20}
D:=20-LENGH(P)

{Reservar el contenido de Palabra}
P1:=P;

{Concatenar tantos espacios como sean necesarios}
FOR I:=1 TO D DO
P:=CONCAT(P," ")

WRITE('Palabra original: ',P1);

WRITE ('Palabra con espacios: ', P,'X');

END.