Помогите пожалуйста перевести код с Паскаля на си и если есть ошибки исправить

[Milayami]

const n=20;
var a: array[1..n] of integer;
    max, i, l, i2: integer;
begin
writeln('Последовательность чисел:');
for i:=1 to n do
begin
a[i]:= random(100);
write(a[i]:3);
end;
writeln;
l:=1;
for i:=2 to n do
begin
if a[i]>a[i-1] then
l:=l+1;
if (a[i]<=a[i-1]) or (i=n) then
begin
if l>max then
max:=l;
l:=1;
end;
end;
writeln('max=', max);
if max=1 then exit;
for i:=2 to n do
begin
 if a[i]>a[i-1] then
 l:=l+1;
 if (a[i]<=a[i-1]) or (i=n) then
 begin
  if max=l then
   if (i=n)and(a[i]>a[i-1]) then
   for i2:=i-l+1 to i do
   write(a[i2]:3)
   else
   for i2:=i-l to i-1 do
   write(a[i2]:3);
   writeln;
   l:=1;
 end;
end;
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[Alex11223]

Тут не решатель задач. Если кто-то просто решит за вас, это вряд ли поможет вам разобраться.

покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.