begin
  var fn := ReadlnString('Имя файла:');
  if not FileExists(fn) then
    Print('Файл не найден')
  else
  begin
    var a := ReadAllLines(fn);
    for var i := 0 to a.High do
    begin
      var w := a[i].ToWords;
      if w.Count > 1 then
        Swap(w[0], w[w.High]);
      a[i] := w.JoinToString;
    end;
    WriteAllLines(fn, a)
  end
end.