如何把一个文档倒序输出！

Question

procedure dxdc(souce:string;dest:sting);//souce:原文件;dest:目标文件
var filea,fileb:file of char;
    ch:char;    
    i:integer;
begin
  assignfile(filea,souce);
  reset(filea);
  assignfile(fileb,dest);
  rewrite(fileb);
  i:=filesize(filea);
  for i:=filesize(filea)-1 down 0 do
    begin
    seek(filea,i);
    read(filea,ch);
    write(fileb,ch);
    end;
  CloseFile(filea);
  CloseFile(fileb);
end;