[MakcoH41k]

Очень прошу помочь перевести задачку с паскаля на Си...Вот собственно задача:
uses crt;
const zn=['+','-','*','/'];
var f:text;
s:string;
i,j:integer;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
j:=0;
while not eof(f) do
begin
readln(f,s);
j:=j+1;
for i:=1 to length(s)-1 do
if (s[i] in zn)and(s[i+1] in zn)then
writeln('Ошибка в строке ',j,' позиции ',i,',',i+1);
end;
close(f);
readln
end.
Заранее спасибо!