Списки, Считать с файла Опции

[Rom1k]

Считать список с файла(.txt) и вывести его на экран.
в файле дано
Фамилию имя отчество 4 оценки и дополнительный балл(если он есть,тогда занести,если его нет,оставить пустым) и подсчитать средний балл.

Пример работы программы:

Иванов Иван Иванович 3 4 3 3 3
Петров Петр Петрович 3 4 4 2
Юрьев Юрий Юрьевич 2 2 3 4

Вот что программа должна выводить на экран:

ФИО оценка 1 оценка 2 оценка 3 доп. балл средний балл
Иванов Иван Иванович 3 4 3 3 3.2
Петров Петр Петрович 3 4 4 0 3.25
Юрьев Юрий Юрьевич 2 2 3 0 2.75

вот текст программы.Я думаю,что у меня даже с файла считывает неправильно:

program m1;
Uses CRT;
type
 PData = ^TData;
 TData = record
  fam,imya,otch:string;  {Фамилия, имя, отчество}
  marks:array[1..3] of integer; {3 оценки}
  bal:byte;   {Дополнительный балл}
  SB:real;    {Средний балл}
  next:PData;
 end;
Var
 Head,Tail,P:PData;
 i:integer;
 N:byte;
 nn:byte;
{--------------------------------------------------------------------------}
procedure vvod(var Rec:TData;var n:byte);
  var
   s:real;{Сумма 3 оценок}
   p:integer;{Позиция в строке ввода}
   error:integer;{код ошибки при преобраз. строки в число}
   f:text;
   st:string;
   bals:string;{Строки,содерж bal}
   Smarks:array[1..3] of string;
  Begin
    Assign (f,'sot.txt');
   reset(f);
   s:=0;
   p:=pos(' ',st);   {Р присваивает позицию пробела}
   while not eof (f) do {Пока не конец файла,делаем}
   begin
    readln(f,st);
    rec.fam:=copy(st,1,p-1);  {Вырезаем фамилию}
    delete(st,1,p);
    rec.imya:=copy(st,1,p-1); {Вырезаем имя}
    delete(st,1,p);
    rec.otch:=copy(st,1,p-1); {Вырезаем отчество}
    delete(st,1,p);
    for i:=1 to 3 do          {От 1ой до 3ей оценки}
    begin
     Smarks[i]:=copy(st,1,p-1);          {Вырезаем оценку}
     val(Smarks[i],rec.marks[1],error);  {Преобразовываем строку в число}
     s:=s+rec.marks[i];                  {Накапливаем сумму оценок}
     delete(st,1,p);                     {Удаляем i оценку из строки}
    end;
    bals:=copy(st,1,p-1);
    val(bals,rec.bal,error);
    if rec.bal = 0 then {Если дополнительного балла нет}
     rec.sb:=s/3
    else
     rec.sb:=s+rec.bal/4;
    n:=n+1;
    close(f);
   end;{while}
end;{vvod}
{--------------------------------------------------------------------------}
procedure add(var nn:byte);
var
 p:PData;
begin
 Head:=nil;
 Tail:=nil;
   new(p);
   vvod(p^,nn);
   for i:=1 to nn do
   begin
    if Head=nil then head:=p
    else tail^.next:=p;
    Tail:=p;
    p^.next:=nil;
   end;{for}
end;{add}
{--------------------------------------------------------------------------}
procedure prosmotr(var nn:byte);
var
 p:pdata;
 i,v:byte;
begin
 WriteLn('Результат: ');
 P:=Head;
 While P<>nil do
 for v:=1 to nn do
  begin
   Write(n,') ',P^.fam:3,p^.imya:3,p^.otch:3);
   for i:=1 to 3 do
    write(p^.marks[i]:3);
    writeln(p^.bal:3,' ',p^.SB:4:1);
    P:=P^.next;
    v:=v+1;
  end;{while}
end;{prosm}
{--------------------------------------------------------------------------}
Begin{main}
 clrscr;
 add(n);
 prosmotr(n);
 readkey;
END.

[volvo]

var head2, tail2, p: pdata;

...
  head2 := nil;
  p := head;
  while p <> nil do begin
    if p^.sb >= 4.5 then add(head2, tail2, p^);
    p := p^.next;
  end;
  prosmotr(head2);
...