Задачи с использованием файлов Опции

[Tupoi_Proger]

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

Заранее спасибо.

[DimaD]

1. Переписать компоненты символьного файла F в файл G в обратном порядке.

var
 f,f1: TextFile;
 i: Byte;
 St: Char;
 S: String;
begin
 AssignFile(f,'F.txt');
 Reset(f);
 AssignFile(f1,'G.txt');
 Rewrite(f1);
 while not EOF(f) do
  begin
   Readln(f,S);
    for i:=1 to Length(S) div 2 do
     begin
      St:=S[i];
      S[i]:=s[Length(s)-i+1];
      S[Length(s)-i+1]:=St;
     end;
    Writeln(f1,S);
  end;
 CloseFile(f1);
 CloseFile(f);
end.