Чтение двумерных массивов - записей из файла

type
  myrec = record 
    st1, st2: string[255];
    x: integer;
  end;
 
var
  r: myrec;
  f: file of myrec;
  n, i: integer;
 
begin
  randomize;
  n := 10;
  // создание файла
  assign(f, 'data.dat');
  rewrite(f);
  for i := 1 to n do
  begin
    r.st1 := 'cwerew'; // лень было вводить строки
    r.st2 := '5654saafsd';
    r.x := random(n);
    write(f, r);
  end;
  close(f);
  //чтение из файла
  reset(f);
  while not eof(f) do
  begin
    read(f, r);
    writeln(r.st1:16, r.st1:16, r.x:8);
  end;
  close(f);
end.

type
  myrec = record
          st1, st2: string[255];
          x: integer;
         end;
var
  f: text;
  s:string;
  a:array[1..100] of myrec;//массив записей куда считываем
  n, i: integer;
begin
assign(f, 'data.txt');//файл лежит в папке с программой
reset(f);
n:=0;
while not eof(f) do
 begin
  readln(f,s);
  inc(n);
  a[n].st1:=copy(s,1,pos(' ',s)-1);//1 слово до пробела
  delete(s,1,pos(' ',s));//удалим его
  a[n].st2:=copy(s,1,pos(' ',s)-1);//2 слово до пробела
  delete(s,1,pos(' ',s));//удалим его
  a[n].x:=strtoint(s);//последнее слово-число
 end;
close(f);
for i:=1 to n do
writeln(a[i].st1,' ',a[i].st2,' ',a[i].x);
end.