Ordenar dados dentro de um arquivo de texto.

[Vinicius R3 0]

Bom estou precisando de fazer o seguinte:

 

Preciso fazer um programa que abra um arquivo .txt que contem em cada linha um numero diferente. ex:

linha 1 - 0000245

linha 2 - 1115452

...

 

Precisava pegar cada linha do arquivo .txt e jogar dentro de cada posição do array, depois ordena-lo e gra-lo novamete dentro do arquivo .txt, o metodo de ordenação já possuimos, mas estaremos fazendo em cosole aplication.

 

Program INserDireta;const	 n = 20;type	Ve=Array[1..20] of Integer;var	V:ve;	e:integer;	Procedure InsDireta(var V:ve; n:integer); var	i,salva,j:integer;begin  for i:=1 to 20 do 	 begin	  v[i]:=Random(100); 	end;			for i:=2 to n do		  begin 			salva:=v[i];			j:=i-1;		   while (j>0) and (salva<v[j]) do			  begin				 v[j+1]:=v[j];				   j:=j-1;			  end;		 	v[j+1]:=salva; 		   end;		   		end;Begin   	InsDireta(V,n); 		for e:=1 to 20 do 	 writeln(v[e]);	 end.

Gostaria de saber como e qual função usar para implementar isto.

 

Ae galera se poder ajudar ficarei grato. Agradeço desde já.

[marcio.theis 3]

Coloca o seu post neste fórum:

 

http://forum.imasters.com.br/index.php?showforum=117