Чтение списка из строки - PascalABC.NET

program file9v;
 
type
  anketa = record
    fam: string; 
    name: string;
    year_end: integer; 
    numb: integer; 
    math: integer; 
    fiz: integer;
    rus: integer;
  end;
 
var
  i, j, code: integer;
  student: array [1..100] of anketa;
  file1: text;
  put, allfile, help: string;
 
begin
  //Write('Путь к файлу(имя файла, если он находится в папке с программой) - ');
  //Readln(put);
  //Write('Количество студентов - ');
  //Readln(n);
  put := 'Vedom.txt';
  assign(file1, put);//связываем переменную с файлом
  reset(file1);//открываем файл для чтения
  while not EOF(file1) do
  begin
    readln(file1, allfile);
    //with student[i] do//
    //readln(file1,fam,name,year_end,numb,math,fiz,rus);
    Writeln(allfile);
    //readln(file1,student[i].fam,student[i].name,student[i].year_end,student[i].numb,student[i].math,student[i].fiz,student[i].rus);
    //inc(i);
  end;
  j := 1;
  for i := 1 to length(allfile) do
  begin
    ///////фамилия
    with student[j] do
    begin
      if pos(' ', allfile[i]) = 0 then // i-й символ не пробел - продолжаем слово
      begin
        fam := fam + allfile[i];
      end;
      
    end;
    end;
end.