Ajuda para compreender programa

[disasterpiece]

Preciso de ajuda para compreender o que faz o seguinte código:

program ficheiros_dados;

type registo=record

              nome : string[15];

              idade:integer;

            end;

var

  f:file of registo;

  aluno:registo;

  n:integer;

begin

  assign(f,'dados.dat');

  reset(f);

  Write('xpto:');

  readln(n);

  seek(f,n);

  read(f,aluno);

  writeln(aluno.nome);

  writeln(aluno.idade);

  close(f);

  readln;

end.

Estou um pouco esquecido de Pascal e apenas queria saber se alguém me podia explicar o que faz este programa. Obrigado pelo apoio que me possa vir a ser dado.  😉

[M6]

Assim de repente diria que não faz nada...

Abre um ficheiro, lê input do utilizador para pesquisar uma posição no ficheiro, escreve no ecrã duas linhas vazias e volta a pedir input ao utilizador antes de terminar...

Se queres saber em detalhe o que o programa faz, vê na documentação as funções que estão a ser usadas...