переписать содержание первого файла во второй, заменив последнее слово первым, а первое удалив.

может задачка детская, но что-то у меня не получается
помогите, плз

если на одной строче одно слово :

f1, f2 : text;
arr : array[1..100] of string;
s    : string;

....
while(not(eof(f1))) do begin
  read(f1, s);
  inc(i);
  arr[i] := s;
end;

arr[i] := arr[1];

...
n := i;
for i := 2 to n do writln(f2, arr[i]);

как работать с файлами, если не знаешь, сходи в наш замечательный FAQ.