Решение задачи String 45

#include <bits/stdc++.h>

using namespace std;

int main()
{
    system("chcp 1251");
    string s;
    getline(cin, s);
    int res = INT_MAX, k = INT_MAX;
    s.insert(0, 1, ' ');
    s += " ";
    for(int i = 0; i < s.size(); ++i){
        if(s[i] != ' '){
            k = 1;
            while(s[++i] != ' ')
                ++k;
        }
        res = min(res, k);
    }
    cout << res << endl;
    return 0;
}

program String45;
var
 S:String;
 i,Num,NumC,MinNumC:integer;
 
begin
  Write('S: ');
  Readln(S);
 
  i:=1;
  Num:=0;
  NumC:=0;
  MinNumC:=0;
 
  While (i<=Length(S)) do
   begin
    if (S[i]=' ') then
     begin
      if ((NumC<MinNumC) or (MinNumC=0)) and (NumC<>0) then MinNumC:=NumC;
      NumC:=0;
     end
      else inc (NumC);
    inc(i);
   end;
  if ((NumC<MinNumC) or (MinNumC=0)) and (NumC<>0) then MinNumC:=NumC;
  Writeln(MinNumC);
  readln;
end.