var
    s, max, temp: string;
    i: integer;
    c: char;
begin
writeln('Введите строку из слов, разделенных одним пробелом в конце точка');
readln(s);
c:= s[pos(' ', s) - 1]; // последний символ первого слова
// ищем макс. слово
max:='';
temp:='';
for i:= 1 to length(s) - 1 do then
begin
    if s[i] <> ' ' then
        temp:= temp+s[i];
    else begin
        if length(temp) > length(max) then
            max:= temp;
        temp:= '';
    end;
end;
// проверяем символы
if c = max[1] then begin
    temp:= copy(s, 1, pos(' ', s) - 1); // копируем 1 слово
    i:= pos(max, s); // начало макс. слова
    delete(s, i, length(max)); // удаляем макс. слово
    insert(temp, s, i); // вставляем первое слово на место максимального
    delete(s, 1, pos(' ', s) - 1); // удаляем первое слово
    insert(max, s, 1); // вставляем макс. слово в начало
end
else delete(s, pos(max, s), length(max));
// выводим строку
writeln(s);
end.