Реализация вектора на паскале

Нажмите на ссылку http://pastebin.com/KxrVip4e, чтобы открыть ресурс.