Type
  TArray = Array[0..pred(maxint)] Of Byte;
  PArray = ^TArray;

procedure readbmptoarray(var p: parray; const s: string);
  begin
    P^[1]:=90;
    P^[20]:=11;
  end;

Procedure GetImageFromFile(Var Storage:Pointer; FileName:String);
Begin
  ReadBMPToArray(PArray(Storage),FileName);
End;

var
  p: pointer;

begin
  GetMem(P,10000);
  getimagefromfile(p,'');

  writeln('p1 = ', parray(p)^[1]);
  writeln('p20 = ', parray(p)^[20]);
  FreeMem(P,10000);
end.