新手问题--谁 来 帮 我 看 下 这 题 目(100分)

这是我的作业，还有两天就要交了，麻烦各位大侠帮帮，我真的没有头绪了。。感激不尽！！

1． 定义一个学生成绩类来统计一次考试的成绩。 要求：
（1） 从 records.txt 读入每个学生每门功课成绩。
（2） 求出每个学生的总分并输出到文件 mark.txt。
（3） 求出每门功课的平均分并输出到文件average.txt
提示： 假设有90名学生， 5门课。
定义数据成员 数组 mark[90][5] 表示 90个学生 5 门功课的成绩。对每个要求设计一个公有函数，分别为Input（）, Total（）, Average（）。在主函数中分别调用这三个函数。

records.txt 的格式：
陈大 85 79 84 78 90
王二 89 92 73 89 80
张三 65 97 60 58 62
李四 85 86 84 82 83
王五 91 93 89 87 95
…………………………………….
mark.txt 的格式：
姓名 总分

average.txt 的格式：
科目编号（1－5） 平均分

2.加密和解密。
有一行电文（从 文件 coded.txt 读入， 不超过1024个字符）， 已按下面规律译成了密码：
A――>Z a――>z
B――>Y b――>y
C――>X c――>x
……….. ………..
即第 1 个字母变成第 26 个字母， 第 2 个字母变成第 25 个字母， 第 i 个字母变成第 (26-i+1) 个字母， 非字母字符时不变。 要求编出程序， 将密码还原成原文，并输出密码和原文到文件 decode.txt 。

文件 code.txt 的格式：
R zn z xloovtv hgfwvmg uiln wvkzignvmg lu xlnkfgvi zkkorxzgrlm.

文件 decode.txt 格式：
密文：
R zn z xloovtv hgfwvmg uiln wvkzignvmg lu xlnkfgvi zkkorxzgrlm.

原文：
I am a college student from department of computer application.

第2题你参考下面的代码试试：
procedure TForm1.Button1Click(Sender: TObject);
const
S = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
R = 'ZYXWVUTSRQPONMLKJIHGFEDCBAzyxwvutsrqponmlkjihgfedcba';
var
i, j: Integer;
str, ch: string;
begin
//Edit1.Text 的内容为密文：R zn z xloovtv hgfwvmg uiln wvkzignvmg lu xlnkfgvi zkkorxzgrlm.

for i := 1 to Length(Trim(Edit1.Text)) do
begin
ch := Copy(Trim(Edit1.Text), i, 1);
if (Ord(ch[1]) >= 65) and (Ord(ch[1]) <= 122) then
begin
for j := 1 to 52 do
if (ch = S[j]) then
str := str + R[j];
end else
str := str + ch;
end;

Edit2.Text := str;
end;