SoloCodigo

buenas amigos tengo que hacer un programa aunque me se todos los comandos y todo creo que estoy pensando mal en la logica del programa....

el programa se trata de:

TEngo que crear un programa que va a terminar cuando Consiga un *, cada linea tiene un maximo de 60 caracteres y se encuentra un mensaje Escondido..(todo eso ya va a estar en un archivo .TXT guardado que tendremos que abrir para leerlo.

para decifrar el mensaje...

las palabras que pertencen al mensaje estan escondida en una pared que va a ser un numero ese va indicar cuatos carcteres vamos a tomar el mensaje que obtenga sera colocado en un texto diferente creado por mi, y no puede pener mas de 20 carcteres por linea.

Este mi algoritmo..

Program Cadena;
uses crt;
var
cadena60:string[60];
cadena20:string[20];
cadenaux:string[20];
arch1,arch2:text;i,long,num:integer;
begin
clrscr;
i:=1;
assign(arch1,'C:\Documents and Settings\Administrador\Mis documentos\Funboy\Programas\sample.txt');
reset(arch1);
assign(arch2,'C:\Documents and Settings\Administrador\Mis documentos\Funboy\Programas\saliente.txt');
readln(arch1,cadena60);
while (not(EOF(arch1))) do
long:=length(cadena60);
For i:=1 to long do
while cadena60 <> '*' do
num:=ord(cadena60) - 48;
if (num >= 1) and (num <=9) then
cadenaux:=cadenaux + copy(cadena60,i+1,num);
end.

no pido que me digan nada solo expliquenme bien  la logica del programa y que estoy haciendo mal ... :S

Saludos y Gracias de antemano.

ppana muchas gracias por la protan respues ya arrgle el problema, bueno aunsigo con un problema..... cuando me da el resuldado me lo da algo como asi 1.50000000000000000000+E000 esta bien la  operacion pero quiero hacer que me de el numero como tal bien , otra pregutica.. se puede hacer una tabla en pascal?

gracias y saludo!