> -- Pavel писал(а):
> TYPE massiv=ARRAY 32767 OF SHORTINT;VAR a: ARRAY 32767 OF massiv;"steck overflow ..."

32767 * 32767 * 2 = 2'147'352'578

Если размер переменной равен двум гигабайтам, то ничего удивительного в этом нет.