Перевести код из Паскаля в Си 

uses crt;
const maxslov=10;
slovar: array[1..maxslov] of string =
('Информатика','Математика','Алгебра','Имя','Паскаль','Папка','Сайт','Вегас','Телефон','Пара');
pr: set of char=[' ','.',',',';',':','-','!','?'];
var s,sl: string;
i,j,k: byte;
begin
while (true) do
begin
write ('s=');
readln(s);
s:=s+ ' '; sl:='';
for i:=1 to length(s) do
if not (s[i] in pr) then sl:=sl+s[i] else
if length(sl)>0 then
begin
k:=0;
for j:=1 to maxslov do
if slovar [j]=sl then inc(k);
if k=0 then writeln ('Слово " ',sl,'" написано неправильно,или не найдено в словаре.')
else
writeln ('Слово ', sl, ' написано правильно.');
sl:=' ';
end;
end;
end.

#include <string.h>#include <iostream>int main() {  int maxslov = 10;  char *slovar[maxslov];  slovar[0] = "Информатика";  slovar[1] = "Математика";  slovar[2] = "Алгебра";  slovar[3] = "Имя";  slovar[4] = "Паскаль";  slovar[5] = "Папка";  slovar[6] = "Сайт";  slovar[7] = "Вегас";  slovar[8] = "Телефон";  slovar[9] = "Пара";  char *pr[8] = {" ", ".", ",", ";", ":", "-", "!", "?"};  char *s, *sl;  int i, j, k;  bool punct;  while (true) {    std::cout<<"s=";    std::cin>>s;    s = strcat(s, " ");    sl = "";    for ( i = 0; i <= strlen(s); i++ ) {      for ( j = 0; j <= 8; j++ ) {        if ( strcmp(pr[j], s[i]) ) {          punct = true;        }        else {          punct = false;        }      }      if ( !(punct) ) {        sl = strcat(sl, s[i]);      }      else {        if ( strlen(sl) > 0 ) {          k = 0;          for ( j = 0; j <= maxslov; j++ ) {            if (slovar[j] = sl) {              k++;            }          }          if (k = 0) {            std::cout<<"Слово \""<<sl<<"\" написано неправильно,или не найдено в словаре."<<endl;          }          else {            std::cout<<"Слово \""<<sl<<"\" написано правильно."<<std::endl;          }          sl = " ";        }      }    }  }  return 0;}