Работа с динамической памятью

{$N+}
program memori;
uses crt;
const
sizeofext=10;
n=100;
m=10000 ;
type
extPoint=^extended;
 var
  i,j:integer;
  ptrStr:array[1..10000] of Pointer;
  s:Extended;
 
 function addre(i:word):extPoint;
 begin
 addrE:=Ptr(seg(ptrstr[i]^),ofs(ptrstr[i]^)*sizeofext)
 end;
 function getext(i:integer):extended;
 begin
  getext:=Addre(i)^;
 end;
 procedure putext(i:integer;x:extended);
 begin
  addre(i)^:=x;
 end;
 
 BEGIN
 randomize;clrscr;
      begin
        for I:=0 to N do
        GetMem (PtrStr[i],Sizeofext);
        for i:=0 to n do
        putExt(i,random(255)*10);
      end;
 s:=0;
 begin
 for i:=1 to N do
  for j:=1 to M do
 s:=getext(i);
 writeln(s/(n*m));
 
 { write(ptrStr[i]);}
 {Pr:=Ptr(seg(ptrStr[i]^),ofs(ptrStr[i]^)+(j-1)*sizeofExt);}
 end;
     begin
     for i:=0 to n do
   {  for j:=0 to m do}
     freemem (PtrStr[i],Sizeofext);
     end;
 readkey;
 END.