массив строк, упорядочить по признаку Опции

[zima]

привет, помоги пожалуйста с задачей на Pascal

смысл вот в чем:
вводится с клавиатуры массив строк заданного размера, размер каждой строки тоже задан
необходимо отсортировать строки так чтобы буквы располагались по алфавиту по диагонали от а до я к примеру
вот так выглядит:
вводим
bcfd
adeh
cbfh
edcc

а получить должны вот что
adeh
cbfh
edcc
bcfd

если кол-во слов больше чем длина слова, то лесенка должна пойти в другую сторону, например вот так

aaaa
bbbb
cccc
dddd
eeee
gggg
hhhh
kkkk
слова не попадающие сюда выписать отдельно

вот что у меня получилось пока, вывел только сортировку по буквам, а как теперь вывести новый массив не могу понять

Program sort;
Uses crt;
Const
bukvi=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'];
Var
  n,m,i,s,j,k,l,b,c: integer;
  A: array[0..100] of string;
  simv,sg,str:string;
  bg:char;
{________zadanie nachalnih dannih__________________}
{}Begin
{}  clrscr;
{}  write('vvedite razmer massiva: ');
{}  readln(n);
{}  write('vvedite dlinu slova: ');
{}  readln(s);
{}  for i:=1 to n do begin
{}      write('vvedite ',i,' element: ');
{}      readln(a[i]);
{}      if length(a[i])<>s then
{}        begin
{}        writeln('nevernoe kol-vo simvolov');
{}        i:=i-1;
{}        end;
{}        end;
{----------------------------------------------------------------------------------------------}
writeln;
{-------------vivod ishodnogo massiva---------------------}
{}writeln('poluchennii massiv strok: ');
{}for i:=1 to n do
{}writeln(a[i]);
writeln;
{----------------------------------------------------------------------------}
{---------sortirovka-----------}
for j:=1 to s do  {proveryaem bukvi}
   begin
    sg:='';
    for i:=j to n do                {cikl na stroki}
       begin
       sg:=sg+a[i,j];
       end;
    writeln(sg);
 for k:=2 to Length(SG) do
    begin
      for l:= Length(sG) downto k do
      begin
        if SG[l-1]>SG[l] then
        begin
          bG:=SG[l-1];
          SG[l-1]:=SG[l];
          SG[l]:=bG;
        end;
      end;
{      readln;}
    end;
writeln(SG);
writeln;
readln;
   end;
readln;
end. 

М

Теги!! Правила Форума, п.5, и правила раздела Задачи, п.2



Сообщение отредактировано: Lapp - 23.06.2011 21:57

[IUnknown]

вот так выглядит:
вводим
bcfd
adeh
cbfh
edcc

Угу... А если вводим
bcfd
adсh
cbfh
adcc
, то тогда как быть? Что делать, если на какое-то место есть больше одного кандидата? Как тогда выбирать? С первой и третьей строкой понятно. Что делать со второй/четвертой?