Нужно перевисти программы с Паскаля на С++

[Veyron]

Program Array76;
const
 n=10;
var
 a:array[1..n]of integer;
 i:integer;
Begin
 for i:=1 to n do a[i]:=random(n);
 for i:=2 to N-1 do
 if (a[i]>a[i-1]) and (a[i]>a[i+1]) then a[i]:=0;
 for i:=1 to n do write(a[i],' ');
end.

Program String16;
function DownReg(ch:char):char;
begin
 DownReg:=chr(ord(Ch)+32);
end;
var
 s:string;
 i:integer;
Begin
 write('Введите строку: ');readln(S);
 for i:=1 to length(s) do
 begin
 if(s[i] in ['A'..'Z','А'..'Я'])then s[i]:=DownReg(s[i]);
 end; 
 writeln('Результат:',s);
end.

Program String46;
var
 s,temp:string;
 lenMax:byte;
 i:integer;
Begin
 write('Введите строку из русских слов:');readln(s);
 s:=s+' ';
 temp:='';
 while(i<=length(s))do
 begin
 if(s[i]=' ')and(s[i+1]=' ')then 
 begin
 delete(s,i,1);
 i:=i-1;
 end;
 i:=i+1;
 end;
 lenMax:=0;// обнуляем нашу переменую для максимального;
 for i:=1 to length(s)do
 begin
 if(s[i] in ['А'..'Я','а'..'я'])then
 begin
 temp:=temp+s[i];
 end
 else
 begin
 if(lenMax<length(temp))then
 begin
 lenMax:=length(temp);
 end;
 temp:='';
 end;
 end;
 writeln('минимальная длина слова = ',lenMax);
end.