Questão 1838929

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á: