Сделать блок схему системы уравнений в Word

var   s : string[50];
  i, j, k : word;  
 f : boolean;  
function isSpace(ch : char) : boolean;
begin   isSpace := false;  
if ch = ' ' then isSpace := true;
end;  
begin   f := false;  
   repeat     j := 0;
    writeln('введите строку, состоящую из 2 слов');
    readln(s);    
for i := 1 to length(s) do    
   if isSpace(s[i]) then  
    begin    
     inc(j);      
   k := i;       end;
     if j =1 then f := true;
    until f;    
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1)); 
end.
недавно такую писала :)

Вот на шарпе.
 Console.WriteLine("s1=");           
string s1=Console.ReadLine();           
int k=1;int max=0;           
for (int i = 1; i < s1.Length-1; i++)            
{               
if (s1[i-1] == s1[i])               
{                   
k++;               
}               
else                
{                   
 if (k > max)                  
  {                       
max = k;                       
k = 1;                   
 }               
 }         
  }           
 Console.WriteLine(max);           
 Console.ReadKey();