Перевести код программы с Паскаля на C

program lr6;
Uses crt;
const
  setStr = ['a'..'z', 'а'..'я'];
Var
 cStr, i: Integer;
  s: String;
  y: Char;
Max,C :Integer;
begin
gotoxy (2,2); write('Лабораторная работа №6');
gotoxy (2,3);
write('Тема: Строки');
gotoxy (2,4); write('Выполнил: студент группы В1-08');
gotoxy (2,5); write('Николаев Константин');
gotoxy (2,7); write('Нажмите любую клавишу');
readln;
gotoxy (2,8); write('Условие 1');
gotoxy (2,9); write('Определить наибольшее количество идущих подряд пробелов');
gotoxy (2,10);Write('Введите строку с пробелами = ');
Read(S);
For i:=1 to Length(S) Do
Begin
While S[i+C] = ' ' Do C:=C+1;
If C>Max Then Max:=C;
C:=0;
End;
gotoxy (2,11);Writeln('Подряд идущих пробелов ',Max);
gotoxy (2,13); write('Условие 2');                                 //ЭТО УСЛОВИЕ ПЕРЕВЕДЕНО
gotoxy (2,14); write('Дана строка, подсчитать количество содержащихся в ней строчных букв.');
gotoxy (2,16);Write('Введите строку : '); ReadLn(s);
cStr := 0;
     for i := 1 to Length(s) do begin
     y := s [ i ];
     if y in setStr then Inc(cStr);
  end;
gotoxy (2,17);Writeln( 'Строчных букв в строке = ', cStr);
end.