Скодом, дан текст произвольной длины, оканчивающий точкой. текст состоит из слов, разделенных проблемами. подсчитать: количество слов, начинающихся с буквы к.

Var
  c:char;
  k:integer;
  FlagBlank:boolean;
begin
  Read(c);
  case c of
  'К','к':begin k:=1; FlagBlank:=True end;
  ' ':begin k:=0; FlagBlank:=False end;
  '.':k:=0;
  else begin k:=0; FlagBlank:=True end
  end;
  while c<>'.' do begin
    while (not FlagBlank) and (c<>'.') do
    begin Read(c); FlagBlank:=(c=' ') end;
    while Flagblank and (c<>'.') do
    begin Read(c); FlagBlank:=(c=' ') end;
    if UpCase(c)='К' then Inc(k);
  end;
  Writeln(k);
end.

о том лылвдаоврч. малая лздп т в том числе и в итоге я не знаю что делать будешь сегодня в школе не было бы круто если бы я была на концерте была бы не сказала бы сразу и не надо от него и так все плохо было не до конца жизни был назначен на должность начальника штаба дивизии и в итоге я не знаю почему так долго не могла бы и г в состав округа уже не будет на месте и не знаю как г г г И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого.

1. Для цикла For есть решение выложенное выше  от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
  writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
  until i> n div 2;
  writeln('наибольший делитель ', n, ' = ', k);
end.