maxavail.pas

 {Maxavail.PAS}
 
 { Пример программы для функции MaxAvail }
 
 Type FriendRec = Record
             Name : String[30];
              Age : Byte;
                  End;
 
 Var P : Pointer;
 
 Begin
  If MaxAvail<SizeOf(FriendRec) Then WriteLn('Недостаточно памяти.')
   Else
  Begin
     { Распределяем память в куче }
     GetMem(P, SizeOf(FriendRec));
     { ... }
  End;
 End.