Дан текстовый файл. Вставить в начало файла его последнюю строку, а в конец первую строку.

const nam = 'c:\test.txt';
      tmp = 'c:\test.tmp';
 
var s, t: string;
    i, r: text;
 
begin
  assign(i, nam);
  reset(i);
  assign(r, tmp);
  rewrite(r);
  readln(i, s);
  while not(eof(i)) do
    begin
      readln(i, t);
      writeln(r, t)
    end;
  writeln(r, s);
  close(i);
  close(r);
  erase(i);
  rename(r, nam)
end.

const nam = 'c:\test.txt';
      tmp = 'c:\test.tmp';
 
var sf, sl, t: string;
    i, r: text;
 
begin
  assign(i, nam);
  reset(i);
  assign(r, tmp);
  rewrite(r);
  while not(eof(i)) do readln(i, sf);
  reset(i);
  readln(i, sl);
  writeln(r, sf);
  while not(eof(i)) do
    begin
      readln(i, t);
      if not(eof(i))
        then writeln(r, t)
        else writeln(r, sl)
    end;
  close(i);
  close(r);
  erase(i);
  rename(r, nam)
end.