ATENÇÃO: Considere, nas questões a seguir, a configuração padrão de software e hardware a menos quando especificado em contrário.
Observe o programa Delphi7 a seguir. Suponha que o arquivo arquivo.txt existe e que ele contém os dados de trinta pessoas ordenadas segundo o seu nome.
{$APPTYPE CONSOLE}
type
RegPessoa = record
nome: String[30];
idade: integer;
end;
var
umaPessoa: RegPessoa;
arq: file of RegPessoa;
pos: integer;
strPath: String = 'c\arquivo.txt';
begin
AssignFile(arq, strPath);
reset(arq);
for pos:=filesize(arq) -1 down 0 do begin
seek(arq, pos);
read(arq, umaPessoa);
writeln(umaPessoa.idade);
end;
CloseFile(arq);
end.
Se este programa for compilado e executado, o resultado será:
