Создать текстовый файл при помощи языка Паскаль в, котором находится список из n фамилий и оценок за экзамен — Pascal(Паскаль)

    program pr1;
var f:Text; i,j,n,kp:byte;
     fam,oz,name:string;
begin
  writeln('Название файла');
  readln(name);
  assign(f,name);//связываем файл с именем
  rewrite(f);//создаем файл
  writeln('Количество человек для записи в файл');
  readln(n);
  writeln('Введите количество ппредметов');
  readln(kp);
  for i:=1 to n do
  begin
    writeln('Введите фамилию студента');
    readln(fam);
    fam:=fam+'  оценки: ';//конкатенация
    for j:=1 to kp do
    begin
      writeln('Введите ',j,' оценку ',i,' студента');
      readln(oz);
      fam:=fam+oz+',';//конкатенация
    end;
    writeln(f,fam);//запись в файл накопленной строки из фамилии и оценок
  end;
  close(f);
end.