сортировка строк pascal

[Алексеййй]

Суть такова: Упорядочить длины строк четверостишия по возрастанию....
program df2;
uses crt;
var
S1,s2,s3,s4:string;
j,n,t,i:integer;
begin
clrscr;
write(s1);
readln(s1);
write(s2);
readln(s2);
write(s3);
readln(s3);
write(s4);
readln(s4);
writeln('dlina 1 stroki=',length(s1),'simvola');
writeln('dlina 2 stroki=',length(s2),'simvola');
writeln('dlina 3 stroki=',length(s3),'simvola');
writeln('dlina 4 stroki=',length(s4),'simvola');
  for i:=n-1 downto 1 do
  for j:=1 to i do
  if s[j]>s[j+1] then
  begin
  t:=s[j];
  s[j]:=s[j+1];
  s[j+1]:=t;
  end;
write;
readln;
            end.

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

[Sazary]

Естественно, будет бред. Вам надо отсортировать строки по их длинам? А вы сортируете саму строку (которой, кстати, вообще нет).
Вам нужно завести массив строк.

s : array[1..4] of string;

туда загоните строки.
Ну а потом как-нибудь так:

  for i:=n-1 downto 1 do
  for j:=1 to i do
  if length(s[j])>length(s[j+1]) then
  begin
  t:=s[j];
  s[j]:=s[j+1];
  s[j+1]:=t;
  end;

где t - строковая переменная.

[Алексеййй]

Ну вообще мне надо сравнить длины строк и я решил сделать так: сортировать их и между ними поставить " > ". А можно поподробнее ,как мне это сделать? А то я уже столько намучался с этой задачей, все остальные которые сложнее сделал а вот на строки(((

[Sazary]

Алексеййй, а вы сами себе представляете, как можно упорядочить длины строк? Упорядочить можно строки по их длинам, но не сами длины.

А можно поподробнее ,как мне это сделать?

Чем вас не устраивает то, что я написал выше?

[Алексеййй]

Сорри ошибся... Да сортировать строки по их длинам..
Я не знаю как загнать длины строк в массив

[Sazary]

Я не знаю как загнать длины строк в массив

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

for i:=1 to 4 do
 readln(s[i]);

[Алексеййй]

Ничего у меня не получается(((

[Sazary]

Покажите ваши попытки.

Впрочем, ладно. Держите.

uses crt;
const n=4;
var
s : array[1..10] of string;
i,j : integer;
t : string;

begin
clrscr;
for i:=1 to n do
 readln(s[i]);

 for i:=n-1 downto 1 do
  for j:=1 to i do
   if length(s[j])>length(s[j+1]) then
    begin
    t:=s[j];
    s[j]:=s[j+1];
    s[j+1]:=t;
    end;

writeln('-----------');
for i:=1 to n do
 writeln(s[i]);

readln;
end.

[Алексеййй]

ОГРОМНОЕ СПАСИБО!!


и последний вопрос : как сделать чтобы вместо самой строки выводился её номер, например StrokaN1, потому что я чет не дописал полностью условие задачи... мне б как нить сделать так чтобы еще можно было вставить между ними >(больше) или если они равно =
т.к. их надо сравнить...

Но Всё равно Спасибо!

[Sazary]

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

То есть номер, под которым она была до сортировки? Ну тогда нужно завести дополнительный массив чисел

mas : array[1..10] of integer;

затем заполнить его числами по порядку.

for i:=1 to n do
 mas[i] := i;

и в процессе сортировки строк, когда обмениваете местами строки, заодно проделываете это и с элементами этого массива.

for i:=n-1 downto 1 do
  for j:=1 to i do
   if length(s[j])>length(s[j+1]) then
    begin
    t:=s[j];
    s[j]:=s[j+1];
    s[j+1]:=t;
    tmp := mas[j];
    mas[j] := mas[j+1];
    mas[j+1] := tmp;
    end;

мне б как нить сделать так чтобы еще можно было вставить между ними >(больше) или если они равно =
т.к. их надо сравнить...

А вот это не понял. Что куда вставить?