Доброго времени суток Почему при выполнении данного кода: [Code] program Project2; {$APPTYPE CONSOLE} const len=30; procedure Show_Byte(pB:pByte;len:integer); begin while len>0 do begin write(AnsiChar(pB^)); write(' '); inc(pB); dec(len); end; end;{} var p_cur,p_bg:pByte; i:integer; begin GetMem(p_bg,len); p_cur:=p_bg; for i:=0 to len*30 do begin p_cur^:=random(10)+48; inc(p_cur); end; Show_Byte(p_bg,len*30); ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82887