Строка - Pascal (97731)

var
  tempword,s:string;
  kol,srd,countword,i:integer;
begin
  writeln('ÈñõîäГ*Г*Гї ñòðîêГ*:');
  readln(s);
  countword:=0;
  kol:=0;
  for i:=1 to length(s) do
  begin
    if s[i]<>' ' then
      inc(kol);
    if ((s[i]=' ') and (s[i-1]<>' ') and (i>1)) or ((i=length(s)) and (s[i]<>' ')) then
      inc(countword)
  end;
  srd:=kol div countword;
  writeln('ÑðåäГ*ГҐГҐ êîëè÷åñòâî ñèìâîëîâ Гў ñëîâå = ',srd);
  writeln('ÑëîâГ* áîëüøå ëèáî Г°Г*ГўГ*ûå ýòîìó Г§Г*Г*Г·ГҐГ*ГЁГѕ:');
  for i:=1 to length(s) do
    if s[i]<>' ' then
    begin
      tempword:=tempword+s[i];
      if (length(tempword)>=srd) and (i=length(s)) then
        write(tempword,' ');
    end
    else
      if length(tempword)>=srd then
      begin
        write(tempword,' ');
        tempword:=''
      end;
  writeln
end.