Вывести последние k записей из бинарного файла (процедура) - PascalABC.NET

Формулировка задачи:

Необходимо вывести последние k записей из бинарного файла.

Решение задачи: «Вывести последние k записей из бинарного файла (процедура)»

Листинг программы

const
  n=10;
var
  f:file of integer;
  k,x,i:integer;
begin
  assign(f,'in.dat');
  rewrite(f);
  for i:=1 to n do
    begin
      write(f,i);
    end;
  close(f);
  readln(k);
  reset(f);
  seek(f,filesize(f)-k);
  while not eof(f) do
    begin
      read(f,x);
      write(x:4);
    end;
  close(f);
  readln;
end.

Объяснение кода листинга программы

В этом коде выполняется следующая последовательность действий:

Объявляются переменные:
- f: файл для чтения и записи целочисленных значений;
- k, x, i: целочисленные переменные для выполнения операций цикла.
Устанавливается связь с файлом 'in.dat' и открывается для записи.
Записывается в файл последовательность из 10 целых чисел с помощью цикла.
Закрывается файл.
Считывается из консоли значение переменной k.
Открывается файл 'in.dat' для чтения с позиции, соответствующей последним k целым числам.
Пока не достигнут конец файла, считывается очередное целое число и выводится на экран, дополненное до 4-х знаков.
Закрывается файл.
Считывается символ конца строки из консоли.