Строки в паскале

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.