из Pascal в с++

[[WHYNOT]]

написал программу на Pascal но оказалось нужно в C++(я его не изучал и не изучаю) нужна помощь в переводе на язык с++. сама программка очень простенькая школьного курса. на нахождение всех симметричных четырёхзначных чисел.

function Pal(s : string) : boolean;
begin
Pal := s[1] = s[Length(s)];
if (s[1] = s[Length(s)]) and (ord(s[0])>2) then
Pal := Pal(Copy(s, 2, Length(s)-2))
end;
var
temp : string;
i: integer;
begin
for i := 1000 to 9999 do
begin
Str(i,temp);
if Pal(temp) then
Write(temp,' ')
end;
ReadLn
end.

может в какой нибудь литературе есть такой пример или хотябы похожий?