Создать файл целых чисел. Поменять местами первую и последнюю цифру - Pascal

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

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

Решение задачи: «Создать файл целых чисел. Поменять местами первую и последнюю цифру»

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

var
  j: Integer;
  c, d: Char;
  f: Text;
  g: file of Char;
begin
  Assign(g,'file.txt'); Assign(f,'file.txt'); Rewrite(f);
  repeat
    Write('Число (0-выход): '); Read(j);
    if j=0 then Exit;
    Write(f,' ',j);
  until False;
  Close(f);
  Reset(g);
  Seek(g,1); Read(g,d); 
  Seek(g,FileSize(g)-1); Read(g,c);
  Seek(g,FileSize(g)-1); Write(g,d);
  Seek(g,1); Write(g,c);
  Close(g); Reset(f);
  while not EOF(f) do begin
    Read(f,j); Write(' ',j);
  end; Close(f);
end.

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

Создается переменная j типа Integer, которая будет использоваться для чтения и записи чисел в файл.
Создаются две переменные c и d типа Char. Переменная c будет использоваться для чтения первой цифры числа, а переменная d - для чтения последней цифры числа.
Создается переменная f типа Text, которая будет использоваться для записи чисел в файл.
Создается переменная g типа file of Char, которая будет использоваться для чтения и записи чисел в файл.
Задаются значения переменным f и g. Переменная f устанавливается в значение 'file.txt', а переменная g - в значение 'file.txt'. Это необходимо для того, чтобы открыть файл для чтения и записи.
Выполняется операция Rewrite(f), которая очищает содержимое файла f и готовит его к записи.
Запускается цикл repeat, который будет выполняться до тех пор, пока не будет достигнут конец файла или не будет прочитано 0 чисел.
Внутри цикла выполняется операция Read(f,j), которая читает число из файла f и записывает его в переменную j. Если прочитанное число равно 0, то цикл завершается.
После завершения цикла выполняется операция Close(f), которая закрывает файл f.
Выполняется операция Reset(g), которая сбрасывает файл g в начало.
Выполняется операция Seek(g,1), которая перемещает файл g на позицию 1.
Выполняется операция Read(g,d), которая читает первую цифру числа из файла g.
Выполняется операция Seek(g,FileSize(g)-1), которая перемещает файл g на позицию, равную размеру файла минус 1.
Выполняется операция Read(g,c), которая читает последнюю цифру числа из файла g.
Выполняется операция Seek(g,1), которая перемещает файл g на позицию 1.
Выполняется операция Write(g,d), которая записывает первую цифру числа в файл g.
Выполняется операция Seek(g,FileSize(g)-1), которая перемещает файл g на позицию, равную размеру файла минус 1.
Выполняется операция Write(g,c), которая записывает последнюю цифру числа в файл g.
Выполняется операция Close(g), которая закрывает файл g.
Выполняется операция Reset(f), которая сбрасывает файл f в начало.
Запускается цикл while not EOF(f) do begin, который будет выполняться до тех пор, пока не будет достигнут конец файла f.
Внутри цикла выполняется операция Read(f,j), которая читает число из файла f и записывает его в переменную j.
После завершения цикла выполняется операция Close(f), которая закрывает файл f.