Паскаль. Работа с файлами + динамический массив записей.

[H4t]

Нужна помощь с исправлением пары ошибок.
Дан типизированный файл записей с информацией о вступительном тестировании: абитуриент, баллы по первому предмету, баллы по второму предмету, баллы по третьему предмету. Вывести список абитуриентов на экран. Вывести в текстовый файл список абитуриентов, упорядоченный по общему количеству набранных баллов.

Program l4_z1_8;
uses crt;
type Tstudent = record
                fam:     string[10];
                firstB:  integer;
                secondB: integer;
                thirdB:  integer;
                sumB:    integer;
end;

const
   PathToFiles = 'F:\PABC\lab_4_z1\';
   Nmax=100;

type Pstudent = ^Tstudent;
var  A: array[1..Nmax] of Pstudent;
     F1,F2: file of Tstudent;
     n,i,j,temp: integer;
     ved: Tstudent;
     
Begin
  //New(Pstudent);
  Assign(F1,PathToFiles + 'File_1.dat');
  Rewrite(F1);
  
  Write('Сколько записей вы хотите записать в файл?? ');
  Readln(n);
  
  if n>0 then begin
    Seek(F1, FileSize(F1));
    for i:=1 to n do begin
      with ved do begin
        Write('Фамилия абитуриента: '); Readln(A[i]^.fam);
        Write('Балл по первому предмету: '); Readln(A[i]^.firstB);
        Write('Балл по второму предмету: '); Readln(A[i]^.secondB);        
        Write('Балл по третьему предмету: '); Readln(A[i]^.thirdB);
        A[i]^.sumB:=A[i]^.firstB+A[i]^.secondB+A[i]^.thirdB;
      end;
      Write(F1,ved);
    end;
    Close(F1);
  end;

  Reset(F1);
  WriteLn('Содержимое файла: ');
  WriteLn('---------------------------------------------------------------');
  while not eof(F1) do begin
    with ved do begin
      for i:=1 to n do begin                                                                      
        read(F1,ved);
        WriteLn(A[i]^.fam:15,' | ',A[i]^.firstB:15,' | ',A[i]^.secondB:15,' | ',A[i]^.thirdB:15,' | ',A[i]^.sumB:15);
      end;
    end;
  end;
  Close(F1);
  
  Reset(F1);
  Assign(F2,PathToFiles+ 'File_2.txt');
  Rewrite(F2);
  
  while not eof(F1) do begin
    with ved do begin
        read(F1,ved);                                                                            
        write(F2,ved);
    end;
  end;
  close(F1);
  
  reset(F2);
  for i:=1 to n-1 do                                                                 
    for j:=n-1 downto i do
      if A[j]^.sumB > A[j+1]^.sumB then begin
        temp:=A[j];                                                                       //Меняем местами только указатели, записи остаются на своих местах
        A[j]:=A[j+1];
        A[j+1]:=temp;
      end;
      
  for i:=1 to n do
    writeln(A[i]^.fam:15,' | ',A[i]^.firstB:15,' | ',A[i]^.secondB:15,' | ',A[i]^.thirdB:15);
  Close(F2);
  //Dispose(Pstudent);
End.

Первая проблема заключается в использовании процедуры NEW, появляется ошибка: "Ожидалось выражение", как я понимаю, ошибка из-за того, что указатель описан в type, т.к. решая задачу с динамическим массивом и делая на него указатель в Var, подобной проблемы не возникало.
И вторая проблема с дополнительной переменной Temp для сортировки, т.к. я меняю местами только указатели, и соответственно не могу присвоить какой либо переменной значение ^record.
Паскаль ABC, насколько я знаю на турбо паскале можно сделать подобную сортировку через дополнительную переменную.

[Stilet]

ошибка из-за того, что указатель описан в type

Не указатель в типе, а попытка передать тип как параметр.
New(A) должно отработать нормально, потому что А - переменная.

т.к. я меняю местами только указатели

Ну логично. Ошибка в том что Temp должен быть типа Pstudent, а не integer. Тогда цикл должен отработать нормально.

[H4t]

Сообщение от Stilet

Не указатель в типе, а попытка передать тип как параметр.
New(A) должно отработать нормально, потому что А - переменная.

Ну логично. Ошибка в том что Temp должен быть типа Pstudent, а не integer. Тогда цикл должен отработать нормально.

New(A) не получится сделать, т.к. эта процедура для указателя, а им является именно Pstudent. Про Temp исправил, только еще появилась ошибка: "»*Попытка разыменовать нулевой указатель (lab_4_z1(var4).pas, строка 39)", там где вводится фамилия абитуриента, там же идет запись поля с индексом 1, не понятна суть ошибки..

[Stilet]

New(A) не получится сделать,

А, ну да. Ну тогда

    for i:=1 to n do begin New(A[i]);
      with ved do begin
        Write('Фамилия абитуриента: '); Readln(A[i]^.fam);
        Write('Балл по первому предмету: '); Readln(A[i]^.firstB);
        Write('Балл по второму предмету: '); Readln(A[i]^.secondB);        
        Write('Балл по третьему предмету: '); Readln(A[i]^.thirdB);
        A[i]^.sumB:=A[i]^.firstB+A[i]^.secondB+A[i]^.thirdB;
      end;
      Write(F1,ved);
    end;

не понятна суть ошибки..

А ты его не создаешь
См. как я тебе цикл написал.

[H4t]

Большое спасибо