Перевод программ на С++

uses crt;
var x:array[1..50]of integer;
    n,i,j:integer;
begin
    writeln ( 'введите размер массива  ' ); readln ( n );
{Ввод массива.}
for i :=1 to n do
begin
write ( 'x[ ', i, ' ]= ' );
readln (x[ i ] );
end;
writeln ( 'массив x  ' );
for i :=1 to n do write ( ' ', x[i]  );
 
writeln;
i:=1;
while i<=n do
   begin
    if x[i]<0 then //если x<0
       begin
         for j:=i to n-1 do//то сдвигаем массив на 1 влево
         x[j]:=x[j+1];
         n:=n-1;//уменьшаем длину массива на 1
       end
    else i:=i+1;//если нет, переходим к следующему
   end;
Writeln(x[i]); 
writeln('Rezultat:');
    for i:=n downto 1 do //выводим массив в обратном порядке, т.е. с последнего элемента n до первого
write(x[i],' ');
readln
end.

uses crt;
Const m=3;n=3;
Type Matrica=array[1..m,1..n] of integer;
var  Min:Matrica;
 
Procedure Vvod(var Massiv:Matrica);
var i,j:integer;
begin
 for i:=1 to m do
  for j:=1 to n do
   begin
    write('Введите ',i,j,' элемент: ');
    readln(Massiv[i,j]);
   end;
 
writeln('Начальная матрица: ');
 for i:=1 to m do
  begin
    for j:=1 to n do
     write(Massiv[i,j],' ');
  end;
end;
 
Procedure Sortirovka(var Massiv:Matrica);
var stroka,stolbec,min,i,j:integer;
    minStolbec:array[1..m] of integer; {Столбец с мах элементом}
    minStroka:array[1..n] of integer;   {Строка с мах элементом}
begin
min:=Massiv[1,1];
stroka:=1;
stolbec:=1;
 for i:=1 to m do
  for j:=1 to n do
    if Massiv[i,j]<min then
      begin
       min:=Massiv[i,j];
       stroka:=i;  {Столбец в котором находится мах элемент}
       stolbec:=j;  {Строка в котором находится мах элемент}
      end;
 
{=======================Сортировка по столбцам===============================}
If stolbec<>1 then
  begin
  for i:=1 to m do
    minStolbec[i]:=Massiv[i,stolbec]; {Запоминаем столбец с мах элементом}
 
 for i:=stolbec downto 2 do  {Сдвигаем столбцы}
   for j:=1 to m do
     Massiv[j,i]:=Massiv[j,i-1];
 
 for i:=1 to m do {Первому столбцу присваиваем знач. столбца с мах элементом}
  Massiv[i,1]:=minStolbec[i];
 end; {if}
 
{=========================Сортировка по строкам==============================}
if stroka<>1 then
begin
 for i:=1 to n do               {Запоминаем стороку с мах элементом}
  minStroka[i]:=Massiv[stroka,i];
 for i:=stroka downto 2 do   {Сдвигаем строки}
  for j:=1 to n do
   Massiv[i,j]:=Massiv[i-1,j];
 for i:=1 to n do     {Первой стороке присваиваем знач. строки с мах элемен.}
  Massiv[1,i]:=minStroka[i];
end; {if}
end;
 
Procedure Vivod(Massiv:Matrica);
var i,j:integer;
begin
writeln('Итоговая матрица: ');
 for i:=1 to m do
  begin
    for j:=1 to n do
     write(Massiv[i,j],' ');
  end;
end;
 
begin
clrscr;
Vvod(Min); {Ввод матрицы}
sortirovka(Min);  {Сортировка}
Vivod(Min);  {Вывод матрицы}
readln;
end.