И у меня проблема с работой с файлами, помогите, плз Опции

[wolke]

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

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

[klem4]

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

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.

Сообщение отредактировано: volvo - 2.11.2006 2:24