Я сейчас ухожу в город - вечерком могу помочь...
Вообще тут нужно использовать команды
assign(F1,'c:/1.txt'); // придать переименой F1 значения файла 1.txt
reset(f1); //подготовить данные
read(f1,f);/ считать, если f:string - то будит сразу весь текст, если f:char; то функция будит по очереди после каждого срабатывания считать подряд символы. Если проверка на слова, то делишь слова с помощью вычисления пробелов.
потом close(f1);
assign(f2);
rewrite(f2);
write(f2,f);
close(f2);
это основные функции, которые тут нужны, подробнее пок ане могу - спешу.. А вообще кое что можно узнать тут
http://liis.lv/nps/nps10.html#10.1. faili
если что, напиши вечером, напишу программку, всёравно к олимпиаде скоро готовиться, а я паскаль давно не повторял, с прошлой зимы после городской(2-е место).