Работа со строками

[Darth_Programmeder]

Уважаемые программисты помогите пожалуйста с составлением кода. в консоле вот задание

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

никак нeмогу составить условия проверки через if. у меня их получилось 7. и все равно работает не так. Заранее большое спасибо

[IT-man]

решение влоб:
загоняйте в массив строк и сортируйте. массив из 3 строк отсортируется максимум в 2 прохода
и выводите их

[vedro-compota]

да-да. этот массив можно сортировать методом.....например методом пузырька. вот алгоритм:

procedure SortBubble (var a: TData);  
var 
  i,j: integer;
  tmp    : integer;
begin
  for i:=2 to N do begin
  for j:=N downto i do
    if a[j-1]>a[j] then begin              // сравнение элементов
      tmp:=a[j]; a[j]:=a[j-1]; a[j-1]:=tmp // обмен местами
    end
  end; 
end;

а затем:

write(m[1])
if m[2]=m[1] then 
write(m[2]);
else
begin
writeln;
write(m[2]);
end;
if m[3]=m[3] then 
write(m[3]);
else
begin
writeln;
write(m[3]);
end;

вроде так))

[IT-man]

например методом пузырька

только сравнивать не элементы массива а длины этих элементов