Составление алгоритмов обработки строковых величин

var st: string; {описываем переменные}

  n, k: integer;

begin

 writeln('введите текст');

 readln(st); {вводим текст }

 n := length(st); {определяем длину строки}

 k := 1;  { начальное значение счетчика}

 for var i := 1 to n do {используя цикл проверяем каждый символ в строке }

 begin

  if st[i] = ' ' then {если встречается пробел }

   k := k + 1; {увеличиваем счетчик на 1}

 end;

 writeln('в тексте ', k, 'слов(о/а)');

end.

Var St: string;

 n, k1, k2: integer; {описание переменных}

Begin

 writeln('введите текст');

 readln(St); {ввод текста}

 n := length(St); {определение длины строки}

 k1 := 0;

k2 := 0; {устанавливаем два счетчика с начальным значением 0}

 for var i := 1 to n do {с помощью цикла перебираем каждый символ}

 begin

  if St[i] = '.' then {если встречается . }

   k1 := k1 + 1; {то увеличиваем счетчик k1 на 1}

  if St[i] = ',' then {если встречается , }

   k2 := k2 + 1; {то увеличиваем счетчик k2 на 1}

 end;

if k1 > k2 then {сравниваем значения счетчиков, если больше значение к1}

  writeln('Точек больше') {то выводим сообщение о том, что больше точек}

 else

  if k2 > k1 then {если больше значение счетчика к2}

   writeln('Запятых больше'){то выводим сообщение о том, что больше запятых}

  else {в противном случае}

   writeln('количество запятых равно количеству точек'); {выводим сообщение}

End.