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

[Tupoi_Proger]

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

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

[Bokul]

Код

var
f,f1: Text;
i:byte;
St: Char;
S: String;
begin
Assign(f,'D:\files.txt');
reset(f);
while (not eof(f)) do
  begin
    read(f,st);
    s:=s+st;
  end;
Assign(f1,'d:\G.txt');
Rewrite(f1);
for i:=length(s) downto 1 do
write(f1,s[i]);
close(f);
close(f1);
end.

Сообщение отредактировано: Bokul - 29.12.2005 3:07