Код:
Samp1: array[1..2, 1..10000000] of LongInt;
Samp2: array[1..2, 1..10000000] of Real;
NewSamp: array[1..2, 1..10000000] of Real;
Z: array [0..1000000]of Real;
X1: array [0..1000000]of Real;
X2: array [0..1000000] of Real;
Prost: array [0..1000000]of LongInt;
ProstCh: array [0..1000000]of Real;
Real 6 байт тогда
6 * 2 * 10000000 * 6 = 720 000 000 байт
720 МБ как минимум, и это только на 6 таблиц.