Pascal/Turbo Pascal - programa en pascal

Holas... disculpen la forma... pero es super urgente... necesito un programa en pascal que pida ingresar un numero de maximo 5 digitos, guardarlo en un archivo, leerlo del archivo y convertirlo a palabras... (si es 525... debe decir \\\'Quinientos veinticinco\\\')

¿Dónde tienes dificultades en hacer el programa en cuestión?.

En todo... no se pascal...

Bueno como lo voy biendo deberias de evaluar el tamaño del numero, lo guardas como string y despues haces un length para saber la longitud de la cadena, luego haces un ciclo donde evaluas el nombre de las unides, decenas, centenas, etc. :
ej:
for j:=1 to length(cadena) do
begin
for i:=1 to 9 do
begin
clrscr:
if (cadena[ j ]= 1 ) and (length(cadena)=5) then
begin
case i of
1: begin
write('Once mil');
end;
2: begin
write('Doce mil');
end;
...
...
9: begin
write('Diecinueve mil');
end;

if (cadena[ 1 ]='2') and (length(cadena)=5) then
begin
case i of
1: begin
write('Veintiun mil');
end;
2: begin
write('Veintidos mil');
end;
...
...
9: begin
write('Veintinueve mil');
end;
write('Docientos ');
end;
Asi irias evaluando primero las decenas de millar si existieran despues la unidades de millar, centecas, decenas y unidades, el programa es un poco largo, revisalo por que no estoy seguro que lo que escribi este correcto por que no lo corri, en fin esto es solo

El ejemplo de pirulex está bien, lo unico que yo cambiaría es poner las cadenas "Mil", "Dosmil", "Tresmil" etc... como una constante array de cadenas.
Unidades:array [0..9] of string=('Uno','Dos','Tres'...

la sugerencia de Diego esta muy buena, se ahoraria interaciones y se convertiria en un programa mas eficiente y se reducen las lineas,...