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

[Анисия]

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

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.

[Анисия]

Спасибо большое за помощь, вот что у меня получилось.

program Lab3;
uses crt;
const m=[' '];
var f, g: text;
y, x, z:string; i:integer;

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

for i:=length(y) downto 1 do
if (y[i]=' ') then begin
             x:=copy(y, i+1,length(y)-i);
             break;
             end;
until (eof(f));
writeln(g, x) ;
close(f);
close(g);
readln;
end.

Добавлено через 3 мин.
Lapp спасибо за помощь, но два часа ковыряний сегодня у меня не прошли даром.

[Lapp]

вот что у меня получилось.
...
два часа ковыряний сегодня у меня не прошли даром.

Это в высшей степени похвально)). Я немного причесал твою прогу (постарайся разобраться с правильным форматированием - это несложно) и написал несколько замечаний.

program Lab3;
uses
  crt;  {CRT нужна только для ClrScr?  Вредная штука эта CRT..}

const
  m=[' '];   {а это чудо зачем тебе?? нигде, вроде, не используется..}

var
  f, g: text;
  y, x, z:string; i:integer;   {а z зачеи понадобилось?..}

begin
  clrscr;      {зачем это? типа чистенько? не надо без нужды стирать и свое, и чужое}
  assign(f,'t.txt');  {неужели ты все делаешь в c:\bp\bin?? жуткий бардак, наверное..}
                      {создавай свою дир для каждой задачи и работайц в ней}
  reset(f);
  assign(g,'g.txt');
  rewrite(g);
  writeln('Содержание файла <f>');
  repeat
    readln(f,y);
    writeln(' ', y);
    for i:=length(y) downto 1 do if y[i]=' ' then begin
      x:=copy(y, i+1,length(y)-i);  {это ты находишь последнее слово? почему в каждой строке?}
      break;   {неудачная конструкция. Используй while - не нужен будет break}
    end;
  until (eof(f));
  writeln(g, x) ;  {наконец-то что-то попало и в g . Только то ли, что надо?}
  close(f);
  close(g);
  readln;
end.

Но требуемым результатом пока не пахнет)).
По-хорошему, (если уж хочешь наворотов,) нужно сделать что-то типа функции для чтения следующего слова из текста. Тогда вся программа будет состоять из двух проходов: первый раз до последнего слова, а второй с записью в выходной файл нужных слов.

Преимущество моего варианта состоит в минимальности накладываемых ограничений. Вот встретится тебе в файле строка с количеством букв больше 255 - и что делать?

Не обращай внимания на мое брюзжание)), делай как делается. Покажи, что получится еще через два часа..