Задача на файлы. Опции

[Анисия]

Добрый день, помогите решить задачу, есть файл со словами разделенных пробелом, вывести в новый файл все слова отличные от последнего. Первый файл я получила, читаю строки из него. А что дальше делать не знаю, или считать кол-во слов, или удалаять подстроку из строки.

program Lab3;
uses crt;
var f, g: text;
y, x :string; i:integer;

begin
clrscr;
assign(f,'C:\bp\bin\t.txt');
reset(f);
writeln('Содержание файла <f>');
repeat
readln(f, y);
writeln(' ', y);
until (eof(f));
close(f);
end.

[Lapp]

Вот простенькое решение. Учти, что я интерпретировал твои слова о том, что слова разделены только пробелами буквально (концы строк не разделяют слова). Если не нравится так - можно поговорить о том, как это исправить.
Программа годится для файлов _любой_ длины, но длина одного слова не должна превосходить длины строки (255).

var
  f: file of char;
  g: text;
  s,t: string;
  c,d: char;

begin
  Assign(f,'in.txt');
  ReSet(f);
  s:='';
  while not EoF(f) do begin
    Read(f,c);
    if c<>' ' then if d=' ' then s:=c else s:=s+c;
    d:=c
  end;
  ReSet(f);
  Assign(g,'out.txt');
  ReWrite(g);
  t:='';
  while not EoF(f) do begin
    Read(f,c);
    if c=' ' then begin
      if t<>s then Write(g,t,' ');
      t:=''
    end
    else t:=t+c
  end;
  Close(g);
  Close(f)
end.