Исправьте код к задачe на языке программирования pascal.

[Danilzp]

Условие задачи:
В строке слова разделены символом пробел. Переставить слова так, чтобы они были упорядочены по алфавиту.
Просьба на писать правильный код и у казать на ошибки.

program p6_2;
var r,s:string;
b:array[1..20] of string;
n,i,j,k:integer;
begin
readln(s);
s:=s+' ';
k:=0;
while length(s)>0 do
begin
n:=pos(' ',s);
k:=k+1;
b[k]:=copy(s,1,n-1);
delete(s,1,n);
end;
j:=1;
for i:=2 to k do
if length(b[i]) > length(b[j]) then j:=i;
r:='';
for i:=length(b[j]) downto 1 do
r:=r+b[j,i];
b[j]:=r;
s:=b[1];
for i:=2 to k do
s:=s+' '+b[i];
writeln(s);
end.

[digitalis]

1. В нормально написанной проге отступами выделяются функциональные блоки, эту линейную простыню читать не хочется.
2. Выкладывая код в форум, пользуются тэгом CODE.
3. Я так понял: найдена первая попавшаяся прога в сети, не имеющая отношения к задаче, и "сделайте мне из неё то, что надо". Если это не так, и вышенаписанное - плод собственных трудов и бдений - то объясни: в каком месте предпринята попытка упорядочить по алфавиту.
Но сейчас придёт добрый человек Неверов и всё сделает - он любит непонятиков.
---------------------------
"Исправьте" - так барин посылает слугу за водкой. Воспитанные люди добавляют "пожалуйста" ."Написать" и "указать" пишется слитно. Впрочем, писать грамотно - это теперь не модно.

[newerow1989]

digitalis, я уже тут!

var r,s:string;
    b:array[1..20] of string;
    n,k:integer;
    d:boolean;
begin
   readln(s);
   s:=s+' ';
   k:=0;
   while length(s)>0 do
   begin
      n:=pos(' ',s);
      k:=k+1;
      b[k]:=copy(s,1,n-1);
      delete(s,1,n);
   end;
   Repeat
      d:=true;
      For k:=2 to 20 do
         If b[k]<>'' then
            If b[k-1]>b[k] then
            begin
               d:=false;
               r:=b[k-1];
               b[k-1]:=b[k];
               b[k]:=r;
            end;
   Until d;
   s:=b[1];
   for k:=2 to 20 do
      s:=s+' '+b[k];
   writeln(s);
   Readln;
end.

[ViktorR]

digitalis

Но сейчас придёт добрый человек Неверов и всё сделает - он любит непонятиков.

Не поминал бы ...
newerow1989

digitalis, я уже тут!

"Лихой конь: всех встречных обгоняет."