Задача(строки)

[Jamguranga]

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

[Sibedir]

Язык? Ваша попытка (код)?

[Jamguranga]

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

так правильно сделать?

люди, помогите

[Jamguranga]

Называется сделай сам

uses crt;
var s,st:string;
    a:array[1..256] of string;
    l,i,n,max,mx:integer;
begin
clrscr;
 read(s);
 l:=1;
 i:=1;
 n:=1;
 while (i<=length(s)) do
  begin
   if s[i]=' ' then
       begin
         inc(l);
         inc(i);
         inc(n);
       end;

   a[l]:=a[l]+s[i];
       inc(i);
 end;

 max:=length(a[1]);
 
 for i:=1 to n do
    if length(a[i])>=max then
       begin
         max:=length(a[i]);
         mx:=i;
       end;
       
 st:=a[mx];

    for i:=mx downto 1 do
     begin
       if i=1 then a[i]:=st else
         a[i]:= a[i-1];
     end;


    
    for i:=1 to n do
      write(a[i],' ');

 readln
 end.