[Ildar-tsr]

У тебя в решении первой задачи циклов ровно в два раза больше чем нужно.
Лучше наверно сделать

Код:

A: Array[0..9] of Integer;
for i :=0 to 9 do

и к стринггриду, и к массиву обращаться через индекс один и тот же (везде i без i-1).