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

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.

var
  f: file of Integer;
  n, m: Integer;
begin
  Assign(f,'file.bin'); Rewrite(f);
  Write('Число: '); Read(n);
  repeat
    Write(f,n); Write('Число (0-выход): '); Read(n);
  until n=0;
  Seek(f,FileSize(f)-1); Read(f,n);
  Seek(f,0); Read(f,m);
  Seek(f,0); Write(f,n);
  Seek(f,FileSize(f)-1); Write(f,m);
  Seek(f,0); Write('Файл:');
  while not EOF(f) do begin
    Read(f,n); Write(' ',n);
  end; WriteLn;
  Close(f);
end.

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