Потестируем!
Для теста я взял массив
ages_in_stratas_in_cities:array[1..100,1..20,1..200] of integer;
Приняв 100 возрастов, 20 социальных групп и 200 городов.

По нажатию кнопки пробегается этот массив, и в файл пишется фраза "Возраст i социального слоя j в городе k обработан" и значение выражения (i+j+k)^2.

У меня это занимает от 1,6 до 2,1 секунды, Sempron 3000, 1024 МБ ОЗУ

http://general.civfanatics.ru/soft/M...r/Measurer.exe

Забыл добавить обращение к самому массиву. Но даже если по кнопке инициализировать массив случанйми числами, а затем в файл писать значение (i+j+k+ages_in_stratas_in_cities[i,j,k])^2, время колеблется между 1,7 и 2,4 секунды.