Всё, работает. Проверил в другом паскале. Не люблю .NET , больно глючит зараза...

Но есть решение без указателей, ровно с 1 объявленной переменной. Даю подсказку: переменная локальная