Считывание из типизированного файла - Pascal

Формулировка задачи:

помогите сделать, есть программа которая создает файл и записывает в него, нужно создать другую программу что бы она считывала с этого файла.

type
t_sub=record
name:string[20];
date:string[20];
group:string[20];
end;
var
sub:array[1..3] of t_sub;
f:file of t_sub;
i:byte;
begin
assign(f,'file.txt');
rewrite(f);
for i:=1 to 1 do begin
write('name');
read(sub[i].name);
write('date');
read(sub[i].date);
write('group');
readln(sub[i].group);
write(f,sub[i]);
end;
close(f);
end.

Решение задачи: «Считывание из типизированного файла»

Листинг программы

type
  t_sub=record
    name:string[20];
    date:string[20];
    group:string[20];
  end;
var
  t: t_sub;
  f:file of t_sub;
begin
  Assign(f,'file.txt'); Reset(f);
  while not EoF(f) do with t do begin
    Read(f,t);
    WriteLn(name,' ,',date,' ,',group);
  end;
  Close(f);
end.

Объяснение кода листинга программы

Объявляется тип записи t_sub, содержащий три поля: name (строка до 20 символов), date (строка до 20 символов) и group (строка до 20 символов).
Объявляется переменная t типа t_sub, которая будет использоваться для считывания данных из файла.
Объявляется файл f, который будет содержать данные типа t_sub.
Происходит открытие файла file.txt для чтения.
В цикле происходит чтение данных из файла f в переменную t до тех пор, пока не достигнут конец файла.
Для каждой записи происходит вывод на экран значений полей name, date и group из переменной t.
После завершения цикла файл f закрывается.