Массив из String Опции

[Гость_Alex]

Помогите решить задачу
Программа должна содержать стандартные процедуры и функции обработки строк.
Дана последовательность, содержащая от 2 до 50 слов; в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела; за последним словом - точка. Напечатать те слова последовательности, которые отличны от последнего слова удовлетворяют следующему свойству: буквы слова упорядочены по алфавиту.

[-=Micle=-]

Нужно напечатать к примеру 2-й символ

Код

program name;
var    a: array [1..10,1..10] of string;

begin
a[1]:='abcdefgh';
write(a[1][2]);

end.

Почему не работает