1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var
  FromF: file;
  NumRead: Integer;
  Buf: array[1..98] of Char; //Buffer für 98 Zeichen
  x:integer;
begin
  x:=10; //Deine x Position hier 10
  AssignFile(FromF, 'D:\xxx.txt');
  Reset(FromF, 1); // Record size = 1byte! Sonst kann es Problememit seek geben
  seek(FromF,x); //Position X anspringen
  // 98 Bytes in den Buffer
  BlockRead(FromF,Buf, SizeOf(Buf));
  // erneut 98 Bytes in den Buffer
  BlockRead(FromF,Buf, SizeOf(Buf));
  CloseFile(FromF);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type
 RecordSet = Record
   Name     : STRING[20];
   addresse :String [40];
 end;

Var
  a: array [0..20]of RecordSet;
begin
 a[0].Name:= 'TEST';
 a[0].Addresse:= 'TEST2';
 Showmessage(a[0].Name);
 Showmessage(a[0].Addresse);
end;