В чем ошибка со строками??

[Freezy]

Задача:Найти самое длинное слово в строке и поставить его на первое место.
Сделал,при компиляцыи никаких проблем,НО pascal виснет!
Скажите в чем ошибка??

program lab6;
uses crt;
var st,st1,slovo,sl:string;max,k:integer;
begin
clrscr;max:=0;
writeln('input string');
readln(st);
st1:=st+' ';
while (pos(' ',st1)>0) do
begin
slovo:=copy(st1,1,pos(' ',st1));
k:=length(slovo);
if (max<k) then
begin
max:=k;
sl:=slovo;
end;
end;
k:=pos(' '+slovo,st);
delete(st,k,max+1);
st:=sl+' '+st;
writeln(st);
readln
end.

[vedro-compota]

если виснет - значит ошибка в while где-то -

while (pos(' ',st1)>0) do
begin

видимо pos(' ',st1) всегда больше нуля)) не знаю, что это за функция)

[Freezy]

а точнее??я второй день сижу,мучаюсь - виснет и все тут(

Сообщение от vedro-compota

не знаю, что это за функция)

эт чтобы определяло когда конец строки вроде как (по крайней мере оно должно так определять)

[andrewpalkin]

Сообщение от Freezy

эт чтобы определяло когда конец строки вроде как (по крайней мере оно должно так определять)

Ты даже не знаешь , что именно написал/а или это не твой код

[Freezy]

это мой код)прост нам так препод обьяснял,а домой пришел,начал наббирать и ошибка.вот

[Shift_sk]

program lab6;
var st,st1,sl,slovo:string;max,u,k,i:integer; 
begin;max:=0;
writeln('input string');
readln(st);
st:=st+' ';
k:=0;
For i:=1 to length(st) do begin

if st[i]<>' ' then begin max:=max+1; st1:=st1+st[i]; end
else  begin if max>k then begin
 k:=max; 
 u:=i;
 slovo:=st1; end; st1:=''; max:=0; end;
end; 
st:=slovo+' '+st; 
delete(st,u+1,k+1);
writeln(st);
end.

[andrewpalkin]

Вот твой доработанный код :

program lab6;
uses
  crt;
var
  st, st1, slovo, sl: string;max, k: integer;
begin
  clrscr;max := 0;
  writeln('input string');
  readln(st);
  st1 := st + ' ';
  while (pos(' ', st1) > 0) do
  begin
    slovo := copy(st1, 1, pos(' ', st1) - 1);
    st1 := copy(st1, pos(' ', st1) + 1, length(st1));
    k := length(slovo);
    if (max < k) then
    begin
      max := k;
      sl := slovo;
    end;
  end;
  k := pos(' ' + sl, st);
  if(k > 0) then
  begin
    delete(st, k, max + 1);
    st := sl + ' ' + st;
  end;
  writeln(st);
  readln
end.

[Freezy]

andrewpalkin ,большое спасибо)теперь хоть понимать буду как избежать подобных ошибок в задачах подобного типа)

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

[Shift_sk]

незачто) всегда рад помочь....