Удалить из текста, содержащегося в файле, N последних слов

const
  fname = 'input.txt';
var
  f: file of char;
  p, n, d: integer;
  c: char;
begin
  write('n = ');
  readln(n);
  assign(f, fname);
  reset(f);
  p := FileSize(f);
  while (n > 0) and (p > 0) do
    begin
      c  := ' ';
      while (p > 0) and (c in [' ', #13, #10]) do
        begin
          dec(p);
          seek(f, p);
          read(f, c)
        end;
      c  := #255; //что угодно, кроме ' ', #13, #10
      d := 0;
      while (p > 0) and not (c in [' ', #13, #10]) do
        begin
          dec(p);
          seek(f, p);
          read(f, c);
          d := 1;
        end;
      dec(n, d)
    end;
  truncate(f);
  close(f)
end.

const
  fname = 'input.txt';
  gname = 'temp.tmp';
var
  f, g: text;
  s: string;
  i, n, d: integer;
begin
  write('n = ');
  readln(n);
  assign(f, fname);
  repeat
    reset(f);
    assign(g, gname);
    rewrite(g);
    if not EoF(f) then readln(f, s);
    while not EoF(f) do
      begin
        writeln(g, s);
        readln(f, s);
      end;
    d := 0;
    while (length(s) > 0) and (n > 0) do
      begin
        while (length(s) > 0) and (s[length(s)] = ' ') do delete(s, length(s), 1);
        while (length(s) > 0) and (s[length(s)] <> ' ') do
          begin
            delete(s, length(s), 1);
            d := 1
          end;
        dec(n, d)
      end;
    if length(s) > 0 then writeln(g, s);
    close(f);
    close(g);
    erase(f);
    rename(g, fname);
    assign(f, fname);
    reset(f)
  until (n = 0) or EoF(f);
  close(f)
end.