Алфавитная сортировка в строке

[niktim]

Снова я запутался со строками.
Условие: дана последовательность, где есть от 1 до 90 слов, в котором от 1 до 10 строчных русских букв. Разделитель - не меньше 1го пробела, за последним словом точка. Нужно напечатать эти слова по алфавиту.

Я хотел сделать, чтобы сортировка шла пузырьком по таблице, но у меня что-то не получается, помогите.

const m=90,
n=10;
var i,j:integer;
    c:char;
    a:array[1..m,1..n] of char;
b:boolen;
begin
for i:=1 to m do
 for j:=1 to n do
 a[i,j]:=' ';
  while c <> '.' do
  begin
   inc(i);
   read(c);
   while c = ' ' do read(c);
   while (c <> ' ') and (c <> '.') do
    begin
     a[i,j] := c;
     read(c);
     inc(j);
    end;
     repeat b:= true;
  for i:= 1 to n-1 do
    begin
      if a[i] > a[i + 1] then
      begin
        a[i]:= a[i + 1];
        b:= false;
      end;
    end;
  until b;
 begin
    for j:=j to n-1 do a[i,j]:=a[i,j+1];
    for j:=1 to n do write(a[i,j]);
    writeln;
   end;
 end;
readln;
end.

[red-eye]

Извини, может туплю но у тебя же не всегда 90 слов, а может быть любое количество меньше 90?

[Serge_Bliznykov]

и ещё. а почему не использовать тип string ? Или это запрещено условиями?

[niktim]

Да, можно менее 90 слов.
Строковый тип можно использовать, но мне казалось, что незачем лишний раз занимать память, хотя, вполне вероятно, сделал только хуже.

[red-eye]

А счетчик до 90 , когда слов может быть меньше по твоему не ерунда? Сейчас что нить набросаю))

[niktim]

ПРоверка: Украинизм Тюркизм Латинизм Англицизм Арабизм Богемизм Галлицизм Гебраизм Семитизм Грецизм Итальянизм Литуанизм Мадьяризм Полонизм Семитизм Старославянизм Германизм Испанизм Церковнославянизм Ориентализм Русизм.

const
 max_words =90;
VAR
  S,temp:String;
  s_array:array[1..max_words] of String;
  count:Integer;
  i,j,len,beg_of_word:Integer;
BEGIN
 WriteLn('vvedi stroky:');
  ReadLn(s);
  i:=1;
  len:= length(s);
  count:= 0;
  while i < len do
  begin
    if s[i] <> ' 'then
    begin
      inc(count);
      beg_of_word := i;
      s_array[count] := '';
      while (s[i] <> ' ') and (i < len) do
      begin
        s_array[count] := s_array[count] + s[i];
        inc(i);
      end;
    end;
    inc(i);
  end;
  if count <> 0 then
  begin
   for i:=1 to count-1 do
     for j:=i+1 to count do
        if s_array[j] < s_array[i] then
        begin
          temp := s_array[j];
          s_array[j] := s_array[i];
          s_array[i] := temp
        end
  end;
  for i:=1 to count do
    Write(s_array[i],' ');
  WriteLn;
END.

Работает отлично, но можно как-нибудь оптимизировать и по-короче?

[niktim]

Апну, коль не запрещено.