Помогите решить задачу на Турбо паскале

> уже весь интернет перерыл
Зачем рыть интернет, если можно просто подумать и сделать все самому? Или у нас сейчас учат задания выполнять путем рытья интернетов? Тут делов то:

var
    s, t: string;
    c, fb, fl, b, l, mb, ml: integer;
    i, f: boolean;
    d: set of char;
begin
    d := [' ', '.', ',']; { добавить разделителей по вкусу }
    write('строка? ');
    readln(s);
    s := s + ' ';
    for c := 1 to length(s) do begin
        if not f and not (s[c] in d) then begin
            fb := c;
            f := true;
        end
        else if f and (s[c] in d) then begin
            fl := c - fb;
            break;
        end;
    end;
    for c := 1 to length(s) do begin
        if not i and not (s[c] in d) then begin
            b := c;
            i := true;
        end
        else if i and (s[c] in d) then begin
            l := c - b;
            if l > ml then begin
                mb := b;
                ml := l;
            end;
            i := false;
        end;
    end;
    if f and (fb <> mb) then begin
        t := copy(s, mb, ml);
        delete(s, mb, ml);
        insert(copy(s, fb, fl), s, mb);
        delete(s, fb, fl);
        insert(t, s, fb);
    end;
    writeln('результат: ', s);
end.

используй функцию length для подсчета колво символов в слове, плюс подпрограмма для сравнения длины слов, для этого проще сделать еще одну подпрограмму для занесения каждого отдельного слова в переменные, а затем их сравнивать, а затем когда каждое слово занесено в переменную, сравнено, максимально спокойной ставишь на первое место используя функцию > или <, ну или чтот в этом роде