Продублировать строку

program strok_47;
var
  st,s,s_min,s1:string;
  i,k,ns,n:integer;
begin
   writeln('Введите строку');
   readln(st);  
   writeln('исходная строка');
   writeln(st);
   k:=0;
   n:=pos(' ',st);
   s_min:=copy(st,1,n-1);
   for i:=n+1 to length(st) do
     if (st[i]=' ') or (st[i]='.') then
            begin
              ns:=i-k;
              s:=copy(st,ns,k);
              if k<=length(s_min) then s_min:=s;
              k:=0;
            end
       else k:=k+1;
   writeln('Самое короткое слово (последнее) ',s_min);
    s1:=s_min[1];
    k:=0;
    for i:=1 to length(st) do
     if (st[i]=' ') or (st[i]='.') then
            begin
              ns:=i-k;
              s:=copy(st,ns,k);
              if s[1]=s1 then writeln(s);
              k:=0;
            end
       else k:=k+1;
end.

var s,s1:string;
    c:char;
    i,j,mn:integer;
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
s:=' '+s+' '; //добавим пробелы в начало и в конец для удобства
mn:=255;// минимальная длина слова
i:=1;
while i<length(s) do//идем по строке
if (s[i]<>' ')and(s[i-1]=' ') then //если не пробел, а перед ним пробел, новое слово
 begin
  s1:='';
  j:=i;
  while(j<=length(s))and(s[j]<>' ') do //составим его
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if length(s1)<mn then //если короче предыдущих
   begin
    mn:=length(s1); //это минимум
    c:=s1[1];//первая буква слова
   end;
  i:=i+length(s1);//перешагшем через слово
 end
else i:=i+1; //пропускаем пробелы
writeln('Минимальная длина слова=',mn,' начинается на букву ',c);
//дублируем слова
i:=length(s);
while i>1 do//идем по строке с конца
if (s[i]<>' ')and(s[i+1]=' ') then //если не пробел, а за ним пробел, новое слово
 begin
  s1:='';
  j:=i;
  while(j>=1)and(s[j]<>' ') do //составим его
   begin
    s1:=s[j]+s1;
    j:=j-1;
   end;
  if s1[1]=c then insert(' '+s1,s,i-length(s1));//если 1 буква = с, вставим это слово
                                                //в строку перед найденным
  i:=i-length(s1);//перешагнем через слово
 end
else i:=i-1;
//удалим добавленные пробелы
delete(s,1,1);
delete(s,length(s),1);
write(s);
end.