[BoRoV]

Ну это тоже не совсем красиво

Код:

procedure ReadFile1(AFileName : String);
var
  F : File Of TStud;
begin
  SetLength(A1,0);
  If FileExists(AFileName) Then
    Begin
      AssignFile(F,AFileName);
      Reset(F);
      While Not EOF(F) Do
        Begin
          SetLength(A1,Length(A1)+1);
          Read(F,a1[High(A1)]);
        End;
      CloseFile(F);
    End;
end;

procedure ReadFile2(AFileName : String);
var
  F : File Of TStud;
begin
  SetLength(A2,0);
  If FileExists(AFileName) Then
    Begin
      AssignFile(F,AFileName);
      Reset(F);
      While Not EOF(F) Do
        Begin
          SetLength(A2,Length(A2)+1);
          Read(F,A2[High(A1)]);
        End;
      CloseFile(F);
    End;
end;

Лучше это всё через одну ф-ию реализовать

Код:

procedure _ReadFile(AFileName : String; var A: Array of TStud);
var
  F : File Of TStud;
begin
  SetLength(A,0);
  If FileExists(AFileName) Then
    Begin
      AssignFile(F,AFileName);
      Reset(F);
      While Not EOF(F) Do
        Begin
          SetLength(A,Length(A)+1);
          Read(F,A[High(A)]);
        End;
      CloseFile(F);
    End;
end;