[lmikle]

1. А где директива {$APPTYPE CONSOLE}?

2. Процедура su1.
У тебя массив до скольких? А цикл по нему до скольких?

3. Процедура su2.
Где инициализация i? Или там вообще в ифе неправильно условие.