с паскаля на с++

[uibiwe]

кто поможет переделать на С++ эту программу?

Program MinElement;
Type Vector=Array [1..100] of integer;
Var   min : integer;
      i,n : byte;
      A : Vector;
{процедуры и функции}
{_____________________}
{Ввод элементов массива}
Procedure InputData;
  begin
    Readln(n);
    For i:=1 to n do
      Read(A[i]);
  end;
{_____________________}
{Находит минимальный элемент}
Procedure MinElem;
  begin
    min:=A[i];
    For i:=n downto 1 do
      If min<0 Then min:=A[i];
  end;
{_______________________}
{основная}
Begin
  Assign(input,'input.txt');Reset(input);
  Assign(output,'output.txt');Rewrite(output);
  InputData;
  MinElem;
  Writeln(min);
  Close(input);
  Close(output);
End.

[b2soft]

я например