Массив из 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.

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

[Altair]

Я бы сделал так:
1. разбил бы строку на слова.
2. поместил слова в стек (в массив проще)
3. Проверял бы слова на совпадение с последним, и если не совпадает, то если упор. по алфавиту, выводил бы

[volvo]

-=Micle=-
Если массив из строк одномерный, тогда так:

var a: array [1..10] of string;
begin
a[1]:='abcdefgh';
write(a[1][2]);
end.

[Terminator]

Спасибо :P

[Altair]

Я вообще не понимаю зачем там матрица используется...

[Altair]

2 темы объедененны, так как созданны одним пользователем, и имеют одинаковую тему.

[Флогримм]

1. разбил бы строку на слова.
2. поместил слова в стек (в массив проще)
3. Проверял бы слова на совпадение с последним, и если не совпадает, то если упор. по алфавиту, выводил бы

Гость_Alex, посмотри в ФАКе по строкам, по-моему, там есть функция которая в массив заганяет все слова из строки(этементом массивая является переменная string)... а дальше дело техники