Продублировать первое слово - Pascal ABC

var
s,buf,max:string;
i:integer;
begin
writeln('Введите строку');
readln(s);
i:=1;
s:=trim(s);
max:='';
buf:='';
for i:=1 to length(s) do
    if (s[i] <> ' ') and (s[i] <> '.') then
       buf:=buf + s[i]
    else
       begin
       if length(buf) > length(max) then
          max:=buf;
       buf:='';
       end;
buf:=s;
delete(buf,pos(max,s),length(max));
i:=length(s) - 1;
if pos(max,buf) > 0 then
   insert(copy(s,1,pos(' ',s)),s,pos(' ',s)+1)
else
   while s[i] <> ' ' do
    begin
    delete(s,i,1);
    dec(i);
    end;
writeln('Итоговая строка: ',s);
end.