claudemi

eu preciso exportar os dados desse programinha assim como aparece na tela para texto ou planilha (de preferência planilha) mas tem algum erro que eu nao consigo fazer isso, alguem pode me ajudar , por favor? o código é esse: program comb; uses crt; var x,y,z,a,b,c:integer; cont:longint; arqcliente:text; begin assign(arqcliente , 'cliente.txt'); clrscr; x:=0; y:=0; z:=0; a:=0; b:=0; c:=0; cont:=0; for x:=1 to 10 do begin for y:=x+1 to 10 do begin for z:=y+1 to 10 do begin for a:=z+1 to 10 do begin for b:=a+1 to 10 do begin for c:=b+1 to 10 do begin cont:=cont+1; Writeln ('Numeracao: ',x,' - ',y,' - ',z,' - ',a,' - ',b,' - ',c,' = Total: ',cont); end; end; end; end; end; end; append(arqcliente); writeln(arqcliente , x); writeln(arqcliente , y); writeln(arqcliente , z); writeln(arqcliente , a); writeln(arqcliente , b ); writeln(arqcliente , c); close(arqcliente); readkey; end.