Переведите с Pascal в c++

uses crt;
const n=10;
var a,b,dx,mn:real;
y:array[1..n*n] of real;
x:array[1..n,1..n] of real;
i,j,k,imn:byte;
m:set of byte;
begin
clrscr;
randomize;
a:=1.25;
b:=9.85;
dx:=(b-a)/(n*n-1);//определим шаг разбиения отрезка
for i:=1 to n*n do
y[i]:=a+(i-1)*dx;//заполним вспомогательный массив
writeln('Исходная матрица');
m:=[];
for i:=1 to n do
begin
for j:=1 to n do
begin
repeat
k:=1+random(n*n);//определим случайные разные индексы в масиве y
until not(k in m);
include(m,k);
x[i,j]:=y[k];//запишем значения в этих ячеках в матрицу
write(x[i,j]:5:2);
end;
writeln;
end;
imn:=1; //найдем строку с минимальным
mn:=x[1,1];
for i:=1 to n do
for j:=1 to n do
if x[i,j]<mn then
begin
mn:=x[i,j];
imn:=i;
end;
writeln('Минимальный элемент=',mn:0:2,' в строке ',imn);
if imn=1 then write('Он в первой строке, обмена нет')
else
begin
writeln('Обмен первой и ',imn,' строк');
for j:=1 to n do //обменяем строки
begin
mn:=x[1,j];
x[1,j]:=x[imn,j];
x[imn,j]:=mn;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(x[i,j]:5:2);
writeln;
end;
end;
readln
end.

0