Как выудить нужную часть из текстового файла?

var n,g,i,s:integer;
  r,sr,res1,res2:real;
 fname:string[80];
 r1:Text;
 c:Char;
procedure TForm1.edt1Change(Sender: TObject);
begin
 n:=StrToInt(edt1.text);
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
 
 for i:=1 to n do
 begin
  fname:=IntToStr(i)+'.txt';
  AssignFile (r1, fname);
  Reset (r1);
  repeat
  Readln (r1,c);
 
  until c='Д';
  read (r1, g);
  s:=s+g;
  repeat
  Readln (r1,c);
 
  until c='C';
  read (r1, r);
  sr:=sr+r;
  CloseFile (r1);
 end;
  // res1:=sr/s;
   lst1.Items.Add(FloatToStr(g)+'общая изменчивость');
  //res2:=s/sr;
   lst1.Items.Add(FloatToStr(r)+'общяя р.скорость');
 
end;
 
end.

Readln (r1,c)

var
RegExp: TRegExpr;
list:TStringList;
begin
list:=TStringList.Create();
list.LoadFromFile('d:\r1.txt');
 RegExp := TRegExpr.Create;
 RegExp.Expression := 'Длинна(.*?)Среднее значение'; //регулярное выражение
 if RegExp.Exec(list.Text) then
repeat
  Memo1.Lines.Add(RegExp.Match[1]);
  until not RegExp.ExecNext;
FreeAndNil(list);
FreeAndNil(RegExp);
  end;

var
   tmp:TStringList;
   Len,
   MeanVal:integer;
begin
   tmp:=TStringList.Create;
   tmp.Clear;
   tmp.LoadFromFile('FileName.ext');
   Len:=StrToIntDef(tmp[tmp.IndexOf('Длинна')+1],0);// получили значение длины
   MeanVal:=StrToIntDef(tmp[tmp.IndexOf('Среднее значение')+1],0);// получили среднее значение
   FreeAndNil(tmp);
end;