В строке символов изъять все пробелы в начале и в конце строки, удвоить пробелы в середине строки и напечатать количество слов

Const A=['a'..'z','A'..'Z','а'..'п','р'..'я','А'..'Я',' '];
var stroka:string;
     i,schetchic:integer;
     start,konec:boolean;
 
begin
write('Введите строку ');
readln(Stroka);
 
 for i:=1 to length(Stroka) do  {Проверка ввода строки на недопустимые символы}
   begin
     if not(Stroka[i] in A) then
      begin
       write('В строке недопустимые символы!');
       readln;
       exit;
      end;
 
   end;
 
i:=length(Stroka);
if (Stroka[length(stroka)]=' ') then  {Если строка заканчивается пробелом}
 repeat                                {Удаляем пробелы в конце строки, до первой встретившейся буквы}
  delete(Stroka,i,1);
  i:=length(Stroka);
 until Stroka[i]<>' ';
 
 
start:=false;
konec:=false;
i:=0;
  while i<=length(stroka)  do  {Подсчет слов и добавление/удаление пробелов}
   begin
    inc(i);
     if (i=1) and (Stroka[i]<>' ')  then
      start:=true
 
     else if  (Stroka[i]<>' ') and (Stroka[i-1]=' ') then
       start:=true
 
     else if (Stroka[i]=' ')  and (Stroka[i-1]<>' ')and (i<>1)  then
 
       konec:=true;
 
    if (i=length(Stroka)) and (Stroka[i]<>' ') then
     konec:=true;
 
       if start and konec then
        begin
         inc(schetchic);
         start:=false;
         konec:=false;
        end;
 
      if Stroka[i]=' ' then
       begin
        if schetchic>0 then   {Удваиваем пробелы в середине строки}
         begin
          insert(' ',Stroka,i);
          inc(i);
          end;
        if schetchic=0 then   {Удаляем пробелы в начале строки}
          begin
           delete(Stroka,1,1);
           dec(i);
          end;
       end {if}
 
 
    end;
 
 
 
writeln('Колличество слов =',schetchic);
write(Stroka);
readln;
end.