Lo que pasa es que cuando por fin logre que me corriera el programa, mostraba los resultados e inmediatamente se cerraba, lo que hacia muy dificil la lectura de estos, por eso decidi agragar la opcion de cerrar el programa o hacer otra operacion a desicion del usuario, y asi mato dos pajaros de un tiro
writeln('desea hacer otra operacion? s/n');
readln(dec);
if dec='s' then
goto start;
if dec='n' then
end.
creo que eso no afecta la estructura del programa