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

# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream>

using namespace std;
const int M = 20;
const int N = 50;
int main()
{
   SetConsoleCP(1251);
   SetConsoleOutputCP(1251);
   
   int i,j;
   char words[M][N];   
   char str[M*N] = "";
   ifstream in ("String51.txt");
   in.getline(str,sizeof(str)); 
   cout << "Исходный набор слов:" << "\n";  
   cout << str << endl; 
        
   char* ptr; 
   ptr = strtok(str, " ,.");    
   int n = 0;         
   while(ptr!=NULL) 
   {          
	   strcpy(words[n], ptr);
	   ptr = strtok(NULL, " ,.");  
	   ++n;
          
   }   
    
   char cur[N] = ""; //Буфер
   
    for(i=0;i<n-1;++i) {
        for(j=i+1;j<n;++j)
            if(strcmp(words[i],words[j])>0)
            {   strcpy(cur,words[i]);
                strcpy(words[i],words[j]);
                strcpy(words[j],cur);
            }
    }
    
    cout << "\n";
    cout << "Набор слов в алфавитном порядке:" << "\n";
    char s[M*N] = "";
    strcat(s,words[0]);
    for(i=1;i<n;++i){
       strcat(s," ");
       strcat(s,words[i]);
    }
    cout << s << endl;

    system ("pause");
}

program String51;
var
 S:String;
 SA : array [1..225] of String;
 i,i2,Len,Len2,poz:integer;
 
procedure SwapString(var S1,S2:String);
var
 STemp:String;
begin
 STemp:=S1;
 S1:=S2;
 S2:=STemp;
end;
 
 
Function CompareString(S1,S2:string):boolean;
begin
 if S10) do
   begin
    if poz=1 then delete(S,1,1);
    if poz>1 then
     begin
      inc(Len);
      SA[Len]:=copy(S,1,poz-1);
      Delete(S,1,poz);
     end;
    poz:=pos(' ',S);
   end;
  inc(Len);
  SA[Len]:=S;
//получился массив SA длинной len.
//сортирую массив
  Len2:=Len;
  for i:=1 to Len-1 do
   begin
    i2:=1;
    Len2:=Len2-1;
    while (i2<=Len2) do
     begin
      if not(CompareString(SA[i2],SA[i2+1])) then SwapString(SA[i2],SA[i2+1]);
      inc(i2);
     end;
   end;
//складываю массив в строку
  S:=SA[1];
  for i:=2 to Len do S:=S+' '+SA[i];
//вывожу массив
  Writeln(S);
end.