Пожалуйста,переведите из Паскаля ABC на страндартный си

[Игорьпрограммист]

rogram poiskobratnix;
uses crt;
Var S:string;
    mi,mk:string[15];
    A:array[1..50] of string[15];
    B:array[1..50] of integer;
    i,j,l,k,t,y,d:integer;
Begin
     writeln('Введите строку:');
     readln(S);
     l:=length(S);
     j:=1;
     B[1]:=0;
     for i:=1 to l do
     Begin
          if (S[i]<>' ') and (S[i]<>',') and (S[i]<>';') and (S[i]<>'-') and(S[i]<>'.') and (S[i]<>'?') and (S[i]<>'!')
          then Begin
                    A[j]:=A[j]+S[i];
                    B[j]:=B[j]+1;
               End
          else Begin
                    j:=j+1;
                    B[j]:=0;
               End;
     End;
     writeln('Кол-во символов строке',l);
     for i:=1 to j do
     writeln(A[i]);
     d:=0;
     for i:=1 to j-1 do
         for k:=i+1 to j do
         Begin
              if B[i]=B[k] then
                               Begin
                                    y:=0;
                                    for t:=1 to B[i] do
                                        Begin
                                        mi:=A[i];mk:=A[k];
                                        if mi[t]=mk[B[i]-t+1]
                                        then y:=y+1;
                                        End;
                                        if y=B[i] then
                                                  Begin
                                                  writeln(mi,'-',mk);
                                                  d:=d+1;
                                                  End;
                               End;
         End;
        if d=0 then writeln('Совпадений нет');
End.

Пожалуйста, оформляйте Ваш код согласно правилам.