Перевод с Паскаля на С++....

[Solnze2]

Помогите переделать с Паскаля на С++.

1)Вывести максимальное число из файла in.txt.

Листинг:
Program num23;
uses crt;
var f1:file of integer;
f2:text;
n,i,a,max,imax,k:integer;
m:array[1..1000]of integer;
begin
clrscr;
assign(f1,'in.txt');
rewrite(f1);
assign(f2,'number.txt');
rewrite(f2);
write('Vvedite kolichestvo chisel n=');
readln(n);
randomize;
for i:=1 to n do
begin
a:=random(201)-100;
write(f1,a);
write(a,' ');
end;
writeln;
close(f1);
reset(f1);
max:=-maxint;
for i:=1 to n do
begin
read(f1,m[i]);
if m[i]>max then
begin
max:=m[i];
imax:=i;
end;
end;
writeln('Max=',max);

write(f2,max,' ');
close(f1);
close(f2);
readln
end.


2) Создать текстовый файл, состоящий из 2-3 предложений. Определить количество слов в нем.

Листинг:
program TextFile;
uses
Crt;
var
F1, F2: Text;
CharCount, WordCount, LineCount: Integer;
i: Integer;
s: String;
c: Char;
f: Boolean;
begin
Assign (F1, 'my.txt');
Assign (F2, 'stat.txt');
Reset (F1);
Rewrite (F2);
WordCount := 0;
while not EOF (F1) do begin
readln (F1, s);
Inc (LineCount);
Inc (CharCount, Length (s));
f := True;
for i := 1 to Length (s) do begin
if (s[i] <> ' ') and f then begin
Inc (WordCount);
f := False;
end;
if (s[i] = ' ') and (not f) then begin
f := True;
end;
end;

writeln (s);
c := readkey;
end;
writeln (F2, 'Слова: ', WordCount);
Readln;
Close (F1);
Close (F2);
Writeln(‘Clova=’, WordCount);
Readln;
end.