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

TZap = Record
  ZnPer : Array[1..11] Of Integer;
  Res : Array[12..18] Of Single; //Если тебе хватит 7-8 десятичных знаков - можно обойтись Single (4 б)
           End;
 
Var
  f : File Of TZap;
  Zap : TZap; //Это переменная в которую будут считываться твои данные
 
Begin
  AssignFile(f,'MyFile.dat');
  Rewrite(f); //Или Reset
  While Not Eof(f) Do //Проверка на конец файла
Begin
  //Читаем запись
  Read(f,Zap); //Указатель в файле сдвинулся на след. запись
  //Обращаемся к данным считанной записи
  Zap.ZnPer[1] //Это к одному 1-му элементу массива
  Zap.Res[12] //Это к одному 12-му элементу массива результатов
  //Записываем запись в файл - по текущему указателю положения в файле
  Write(f,Zap); //Предварительно в Zap нужно сложить все данные, которые будут сохраняться
  Seek(f,FilePos(f)-1); //Смещаем указатель на одну запись к началу файла
  Seek(f,125); //Смещаем указатель на 125-ю запись в файле (ну и т.п.)
End;
  CloseFile(f);
End;

Type
TZap = Record
  ZnPer : Array[1..11] Of Byte; //Для значений до 100 хватит типа Byte (1х11 b)
  Res : Array[12..18] Of Single; //Если тебе хватит 7-8 десятичных знаков - можно обойтись Single (4х6 б)
           End; //Итого 35x600000 б = 21000000 20 Mб
Var
  MyArr : Array Of TZap;
  Tmp : TZap;
Begin
  //Определяем размер массива...
  SetLength(MyArr,600000); //Индексация в таком массиве с 0
  //Заполнение массива... (пример)
  MyArr[0].ZnPer[1]:=10;
  MyArr[0].ZnPer[2]:=15;
  MyArr[0].ZnPer[3]:=21;
...
  MyArr[0].Res[12]:=0,61;
  MyArr[0].Res[13]:=1,25;
...
 
  //Сортировка по какому-то значению... (пример)
  For i:=0 To High(MyArr)-1 Do
  For j:=1 To High(MyArr) Do
  If MyArr[i].Res[3]>MyArr[j].Res[3] Then
  Begin
    Tmp:=MyArr[i];
    MyArr[i]:=MyArr[j];
    MyArr[j]:=Tmp;
  End; //Это только пример сравнения и обмена значениями элементов массива, но не реальная сортировка
 
  //Выдача с StringGrid (допустим очередные 20 строк в столбцы грида)
  PosInArr:=50; //Это с какой позиции в массиве выдаём (лучше эту переменную сделать глобальной)  
  For i:=PosInArr To PosInArr+19 Do
  Begin
    For j:=1 To 11 Do
    StringGrid1.Cells[i-PosInArr,j]:=IntToStr(MyArr[i].ZnPer[j]);
    For j:=12 To 18 Do
    StringGrid1.Cells[i-PosInArr,j]:=FloatToStr(MyArr[i].Res[j]);
  End;
 
  //Освобождаем память массива при закрытии программы
  Finalize(MyArr);
End;

Begin
  i:=0;
  While Not Eof(f) Do //Проверка на конец файла
  Begin
    //Читаем запись
    Read(f,MyArr[i]);
    Inc(i);
  End;
  CloseFile(f);
End;

Begin
  For i:=0 To High(MyArr) Do
  Begin
    //Читаем запись
    Write(f,MyArr[i]);
  End;
  CloseFile(f);
End;

MyArr:=nil;

Finalize(MyArr);

MyArr:=nil;

SetLength(MyArr,0);

SetLength(MyArr,Length(MyArr)+10);