Задачи по файлам, Перепись файлов Опции

[-Денис-]

Помогите решить три несложных задачи.
1. Переписать компоненты символьного файла f в файл g,удалив при этом символы,встречающиеся в
файле всего один раз.
2.В файле содержатся сведения об игрушках:название игрушки и цена.Напечатать сведения об игр
ушках,цена которых выше средней.
3.Дан текстовый файл f.Поменять местами самую короткую и самую длинную строки текста(при услов
ии,что он единственный),результат занести в файл g.

[hardcase]

Если символ - это обычный char, то можно поступить так: копировать файло в 2 прохода.

За первый проход собраем инфу о том, что у нас в файле имеется:
- считаем количество вхождений каждого символа

var Chars: array[Char] of longint; 

//считаем кол-во вхождений
while not eof(F) do begin
  Read(F,Cur);
  inc( Chars[Cur] );
end;

за второй проход сливаем все символы, которые у нас имеют количество вхождений, отличое от единицы, в наше результирующее файло.

//пишем результат
Reset(F);
while not eof(F) do begin
  Read(F,Cur);
  if Chars[Cur] > 1 then Write(ResultFile,Cur);
end;