希望大虾看看下面的代码,小弟初学DELPHI,有些小地方不知道改怎么作。program Project2;uses
  SysUtils,
  math;
{$APPTYPE CONSOLE}
const M = 10;
      N = 10;
      Min = 100; //最小分配大小
Type
AMem = record
name : array[0..10] of Char;
adress : integer;
size : integer;
flag : integer;
//1:used,0:no have
end;RMem = record
adress : integer;
size : integer;
flag : integer;
//1:empty , 0:nohave
end;procedure ini();
function allocate(name : PChar ; size : integer):Boolean;
function reclaim(name : PChar):Boolean;//c语言中是char *name,这样表达对不对?
procedure output();
var amem[M] : AMem ;//不知道该如何正确的申明
     rmem[N] : RMem ;