Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Количество строчных и прописных букв в строке. Pascal, Паскаль.
Алгоритм следующий: в цикле проверяем вхождение букв в двух диапазонах. Один диапазон для прописных (заглавных) букв, другой для строчных (маленьких) букв.

program Kol_Sim_Stroka;

  {Количество строчных и прописных букв в строке}
var
  s_Str: string;
  i, N, i_Acoun1, i_Acoun2:integer;
begin
s_Str:='Hello, world! Alice'’s Adventures in Wonderland.';
N:=length(s_Str);
  for i := 1 to N do
program Kol_Sim_Stroka;

  {Количество строчных и прописных букв в строке}
var
  s_Str: string;
  i, N, i_Acoun1, i_Acoun2:integer;
begin
s_Str:='Hello, world! Alice'’s Adventures in Wonderland.';
N:=length(s_Str);
  for i := 1 to N do
  begin
  //проверка на диапазон прописных букв
   if (s_Str[i] >= 'A') and  (s_Str[i] <= 'Z')  then 
			i_Acoun1 := i_Acoun1 + 1  // Вычисляем количество
		else
			//проверка на диапазон строчных букв
      if  (s_Str[i] >= 'a') and  (s_Str[i] <= 'z') then  
				i_Acoun2 := i_Acoun2 + 1;
  end;
  WriteLn('Строка: ', s_Str);
  WriteLn('Количество строчных букв в строке: ', i_Acoun2);
  WriteLn('Количество прописных букв в строке: ', i_Acoun1);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.


Результат:



Количество строчных и прописных букв в строке. Pascal, Паскаль.