Помогите перевести с паскаля в си++
var
s:string;
k:longint;
begin
read(s);
for i: = 1 to length(s) do if s[i] = 'S' then k: = k+1;
writeln(k);
end.

#include lt;iostreamgt;
#include lt;stringgt;
using namespace std;

int main() {
string s; cin gt;gt; s;
long k = 0;
for (size_t i = 0; i lt; s.length(); i++) {
if (s[i] == S) k++;
}
cout lt;lt; k lt;lt; \n;
return 0;
}