Распарсить файл и записать результаты в массив

MyArr[i].Per[n].Res[j]

Procedure MySort(Index:Integer); //Index - это по какому индексу сортировать (меньше 12 - в массиве ZnPer)
Var
  i,j,m,n : Integer;
  x : Single;
  t : TZap;
Begin
   //Чтобы не сравнивать каждый раз в цикле - лучше разные коды для разных массивов
   If Index>11 Then
   For i:=Low(MyArr) To High(MyArr)-1 Do
   Begin
     x:=MyArr[i].Res[Index];
     n:=i;
     For j:=i+1 To High(MyArr) Do
     If x>MyArr[j].Res[Index] Then
     Begin
       x:=MyArr[j].Res[Index];
       n:=j;
     End;
     If n<>i Then
     Begin //Поменяли местами
       t:=MyArr[i];
       MyArr[i]:=MyArr[n];
       MyArr[n]:=t;
     End;
   End Else
   For i:=Low(MyArr) To High(MyArr)-1 Do
   Begin
     m:=MyArr[i].ZnPer[Index];
     n:=i;
     For j:=i+1 To High(MyArr) Do
     If m>MyArr[j].ZnPer[Index] Then
     Begin
       m:=MyArr[j].ZnPer[Index];
       n:=j;
     End;
     If n<>i Then
     Begin //Поменяли местами
       t:=MyArr[i];
       MyArr[i]:=MyArr[n];
       MyArr[n]:=t;
     End;
   End;
End;

MySort(5);

MySort(14);

u1,u2...u10:String[10];

    TZap = record
    ZnPer : array[1..11] of byte; //Для значений до 100 хватит типа Byte (1х11 b)
    Case Byte Of
    0 : (Res : array[12..18] of single);
    1 : (Nam : String[10]);
  end;

//Либо так:
MyArr[i].Res[i]...
//Либо так:
MyArr[i].Nam...
//Или...
Var
Zap : TZap;
Zap.Nam:='Моё название';
Write(f,Zap); //Записали запись в файл
...
Read(f,Zap); //Считали запись из файла
s:=Zap.Nam;

Seek(f,FileSize(f)-10);

//вместо
  while not Eof(F) do //Проверка на конец файла
//нужно будет писать
  while (FileSize(f)<(FileSize(f)-10)) do //Проверка на конец данных