[shurikan]

Kuper
См. выше.

Не

type
*PByte = Pointer;

Код:

..... 
type 
 * *PByte = ^Byte; 
const 
 * *n=5; 
var 
 * *arr:Array[1..n] of Byte; 
 
..... 
 
//вызов процедуры 
 *имя_процедуры(@arr,n); 
 
..... 
 
//сама процедура 
procedure имя_процедуры(p:PByte;n:Byte); 
begin 
..... 
 * *value:=(PByte(Integer(p) + i))^; 
..... 
end; 
.....

Только что в Delphi откомпилил - оно пашет, зуб даю...

[JCooper]

shurikan
Огромное программерское спасибо!