Inverter arquivo em pascal

[naniopinto]

Preciso inverter um arquivo tipado em pascal e não sei como fazer, alguem pode me ajudar. Meu código:

Procedure Inverte(var alfa:Arqinteiros; inicioBloco,fimbloco:integer);

var

Nome_arq:string;

arq2:arqinteiros;

i,qtd,pos,cont:integer;

linha:integer;

Begin

Assign(alfa,Nome_arq+'.txt');

assign(arq2,'temp.txt');

Reset(alfa);

rewrite(arq2);

while not eof(alfa)do

i:=0;

for i:=filesize(alfa) downto 1 do

p:=pos(i,linha);

read(alfa,linha);

write(arq2,linha); }

end;

close(alfa);

close(arq2);

erase(alfa);

rename(arq2,nome_arq);

readln;

end;

[Simon Viegas]

Olá naniopinto, seja bem vindo ao Fórum do Clube do Hardware.

Preciso inverter um arquivo tipado em pascal e não sei como fazer, alguem pode me ajudar.

Como assim inverter? Como deve ficar o arquivo final?