Строки, чуть-чуть доработать Опции

[alexey13]

программа, данная ниже, позволяет ввести и отсортировать только одну строку, а нужно несколько! help me)

прога сортирует слова по возрастанию! =)

program z14;
uses crt;
var a,d,sl1,sl2 : string;
    i,l,k,j : longint;
    b : array [1..50] of string;
begin
  clrscr;
  write('input s: ');readln(a);
  l:=length(a);
  if a=''then halt;
  if a[l]<>' ' then begin inc(l);a[l]:=' '; end;
  for i:=1 to l do
  if a[i]=' 'then begin
		    inc(j);b[j]:=d;d:='';
		  end
	       else d:=d+a[i];
  for i:=1 to j-1 do
  for k:=i+1 to j do
  begin
    sl1:=b[i];
    sl2:=b[k];
    if length(sl1)>length(sl2) then begin
				      b[i]:=sl2;
				      b[k]:=sl1;
				    end;
  end;
  for i:=1 to j do write(' ',b[i]);
  readln;
end.

Сообщение отредактировано: alexey13 - 22.12.2011 22:13

[alexey13]

Спасибо большое)))