работа с файлом, файл из строк Опции

[18192123]

Нужно преобразовать файл, удалив последнее слово в каждой строке. (для строк можно использовать только
length, ord,char; для работы с файлом - assign,reset,rewrite, close, eof, rename, erase,seek)
у меня получилась какая-то ерунда( когда даю команду на запуск - runtime error 002 at 0000:004)

uses crt;
const k=ord(' ');
var f:file of string; n:integer;
    s:string;
    i:byte;
begin
assign(f,'d:\stroku.txt');
reset(f);
while not eof(f) do
      begin
           for i:=k to length(s)-1 do
           s[i]:=s[i+1];
      end;
seek(f,n+1);
while not eof(f) do
begin
     read(f,s);
     writeln(s);
end;
writeln;
close(f);
end.

Сообщение отредактировано: 18192123 - 3.12.2006 22:58

[klem4]

Заранее должен быть создан файл f, содержащий строки, в которых слова разделены _одним_ пробелом.

Читая каждую строку из файла, мы переменной i присваеваем длину этой строки, далее идем по этой строке с конца, пока не наткнемся на пробел (или начало строки), далее записываем во "временный" файл всю строку с начала до того индекса, за которым следуем последний пробел (этот индекс = i) и соответсвенно последнее слово, которое нам не нужно.