Строковый тип данных Опции

[Lesnik]

Вводится строка из слов, разделённых пробелами или запятыми.
Разбить строку на слова и вывести их на экран в алфовитном порядке.

Просмотрел в FAQ методы сортировок и не совсем понял какая нужна. Надо делать без функций и процедур. Программа должна быть без лишних наворотов.

Тому, кто поможет, скажу ОГРОМНОЕ спасибо и буду ставить + в репутацию до конца недели

[мисс_граффити]

хорошо, следующее задание: сделать, чтобы это работало.

[Lesnik]

хорошо, следующее задание: сделать, чтобы это работало.

Код

program COK;
uses crt;
const

   limits = [#0..#32,'.',' '];
type

   TWords = array[1..40] of string;

var
   text : string;
   words : TWords;
   i,back,n : byte;
begin
For i:=1 to 40 do
begin
Read(text);
words[i]:=text;
end;
   i := 1;
   n := 0;
   while(i<=length(text)) do begin
      while(i<=length(text)) and (text[i] in limits) do
       inc(i);
      if i<=length(text) then begin
         back := i;
         while(i<=length(text)) and not(text[i] in limits) do
          inc(i);
         inc(n);
         words[n] := copy(text, back, i-back);
      end;
For i:=1 to 40 do
Writeln(words[i]);

end;
      end.

Запускается, но не выводит. Наверное, неправильно рассавил ввод и вывод.

Сообщение отредактировано: Lesnik - 19.12.2006 13:36

[Malice]

Да нет, все должно работать. Может Alt-F5 надо или Readln; в конце программы. Осталось только сортировку, берешь вот отсюда Методы сортировок любую.

[Lesnik]

Да нет, все должно работать. Может Alt-F5 надо или Readln; в конце программы. Осталось только сортировку, берешь вот отсюда Методы сортировок любую.

Даже с ридлн выкидывает.
При альт+ф5 я вжу просто пустой экран