Работа с текстовым и типизированным файлом

[AlexGet]

Все привет!) Нужна помощь. Задача вот в чем: Существует текстовый файл. Нужно 1)прочитать его, вывести все данные из этого файла на экран 2) Перенести все данные из текстового файла в типизированный, при этом найти средний балл оценок студентов 3)Ввести информацию про нового студента и занести ее в текстовый файл 4)заменить все двойки на любую другую оценку 5) заменить имена студентов;
Содержание текстового файла:

Roman Smirnov
1995
3 2 4

Vlad Mironov
1993
3 4 4

Masha Serova
1996
5 5 5;

я начал делать и пока что только вот:

type
    Anketa =record //Объеденение в поле
    Fi_O:string[40];//И.Ф студента(ки)
    OC:array [1..3] of Byte;//Оценки студента(ки)
    Dat_r:Word;//Год рождения студента(ки)
    Sred_Ocenka:Real;//Срденя оценка
    end;
    TipiFile=file of anketa;//Типизированный файл

var
    f:Text;// Файловая переменная
    g:TipiFile//файловая переменная для типизированного файла
    Get:Anketa;
    i,n:integer;
    s1,s2:string;
 begin
  AssignFile(f,'Geti.txt');
  AssignFile(g,'TipiFiled');
  Rewrite(g);
  Reset(f);
  with Get do
  begin
  while not Eof(f) do
   begin

    begin
      Readln(f,Fi_O);
      Readln(f,Dat_r);
      Readln(f,OC[1],OC[2],OC[3]);
      Writeln(Sred_ocenka:2:2);
      Writeln;
    end;
    Sred_ocenka:=(OC[1]+OC[2]+OC[3])/3;
    write(g,iny);
    Readln(f);
   end;
  CloseFile(f);
  CloseFile(g);
  Inlet_out;
 end;
 end.

Программу делать необязательно, только подтолкните на верный путь, чтобы я сам сделал. Как мне прочитать текстовый файл?

while not Eof(f) do
begin

begin
Readln(f,Fi_O);
Readln(f,Dat_r);
Readln(f,OC[1],OC[2],OC[3]);
Writeln(Sred_ocenka:2:2);
Writeln;

Вводить цикл здесь?
Как записать всю эту инфу в типизированный файл с новыми строками со средним баллом оценок?