Сформировать типизированный файл - Pascal ABC

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

Сформировать типизированный файл целых чисел, вводимых с клавиатуры. Признаком конца ввода является 0. Найти сумму чисел из файла и разность между первым и последним числами.

Решение задачи: «Сформировать типизированный файл»

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

var f:file of integer;
    a,b,s,r:integer;
begin
assign(f,'file');
rewrite(f);
writeln('Введите целые числа, окончание ввода 0');
repeat
readln(a);
if a<>0 then write(f,a);
until a=0;
reset(f);
writeln('Содержание файла');
read(f,a);
s:=a;
write(a,' ');
while not eof(f) do
 begin
  read(f,b);
  write(b,' ');
  s:=s+b;
  if eof(f) then r:=a-b;
 end;
close(f);
writeln;
writeln('Сумма элементов файла=',s);
write('Разность первого и последнего элементов=',r);
end.

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

Объявлены переменные: файл f, целые числа a, b, s, r.
Файл f открывается на запись в режиме rewrite.
Пользователю предлагается ввести целые числа, пока не введется 0.
Введенное число записывается в файл f.
Файл f открывается на чтение.
Пользователю выводится содержимое файла.
Число из файла записывается в переменную a.
Число из файла записывается в переменную b.
Переменная s обновляется суммой чисел из файла.
Если достигнут конец файла, то из файла считывается последнее число, которое записывается в переменную r.
Файл f закрывается.
Выводится сообщение о сумме элементов файла.
Выводится сообщение о разности первого и последнего элементов.