white

não estou conseguindo fazer um programa para um trabalho da faculdade.
O enunciado do programa é o seguinte:

Faça um programa que leia os nomes de 10 alunos e suas respectivas notas de um arquivo texto. A seqüência dos valores é nome|nota1|...|notaN. Para cada aluno não se sabe quantas notas foram armazenadas. Portanto, o programa deve ler o arquivo e apresentar o nome do aluno e sua média.

tentei primeiro fazer um programa que listasse apenas os nomes dos 10 alunos, com o seguinte código:

program exerciciodois;

uses crt;

var
arq:text;
linha,cadeia,nome:string;
i:integer;

begin
 clrscr;
 assign(arq,'Planilha.txt');
 reset(arq);
  while not eof(arq) do
    begin
     i:=0;
     readln(arq,linha);
     while linha[i]<>'|' do
      begin
       cadeia[i]:=linha[i];
       nome:=nome+cadeia[i];
       i:=i+1;
      end;
     writeln(nome);
    end;
 close(arq);
 readln;
end.

mas tá impossível. se alguem puder ajudar eu agradeço