Вывести на экран слова этого текста в порядке, соответствующем латинскому алфавиту.

[DimaKAA]

Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами. Вывести на экран слова этого текста в порядке, соответствующем латинскому алфавиту.(PascalABC) Заранее спасибо.

[BDA]

const
  maxcount = 255;

var
  a: array[1..maxcount] of string;
  c: char;
  tmp: string;
  count, i, j: integer;
  delimiters: set of char;

begin
  delimiters := ['!', ';', ':', '?', ',', '.', ' '];
  writeln('Input string:');
  read(c);
  count := 1;
  while (c <> #13) do
  begin
    if not (c in delimiters) then
      a[count] := a[count] + c
    else
    if a[count] <> '' then
      inc(count);
    read(c);
  end;
  if a[count] = '' then dec(count);
  if count > 0 then
  begin
    for i := 1 to count - 1 do
      for j := i + 1 to count do
        if UpperCase(a[i]) > UpperCase(a[j]) then
        begin
          tmp := a[i];
          a[i] := a[j];
          a[j] := tmp;
        end;
    writeln('All words:');
    for i := 1 to count do
      writeln(i, ') ', a[i]);
  end
  else
    writeln('No words');
  readln;
end.

Но ответил только потому, что вчера писал подобную задачу, и исправление заняло 30 секунд.
Привыкайте выкладывать хотя бы наработки.

[Алексей47]

BDA очень нужна ваша помощь, но связаться через Аську немогу, как еще можно вас найти? Все взял аську друга авторизуйте пожалуйста.

[DimaKAA]

спасибо большое!!!