Перевод из Паскаля в Си. возможна оплата

[Ilyastudent]

Ребят очень нужна помощь, возможна и за деньги
Нужно перевести программу с Pascal в С++
вот сам текст

program mass_str;

var
a, b: array[10] of string;
s, c, v:string;
k: array[10,2] of integer;
i, j, l,z ,z1, m, dop: integer;



begin

writeln('введите размер масива строк');
readln(l);
for i:=1 to l do
begin
write('введите ',i,'-ый элемент массива');
readln(a[i]);
end;
writeln('введите строку разелителей');
readln(c);

writeln('введите заданное слово');
readln(s);
x:=length(s);


{формирование нового массива}
for i:=1 to l do
begin
z:=pos(a[i],s);
v:=a[i];
j:=0;
if z>0 then
begin
j:=j+1;
k[j,1]:=1;
z1:=pos(v,s);
while z1>0 do
begin
b[j]:=a[i];
delete(v,z1,x);
k[i,2]:=k[i,2]+1;
z1:=pos(v,z1,x);
end;
m:=j;
end;
end;

{сортировка}
for i:=1 to m do
for j:=i to (m-1) do
begin
if k[j,2>=k[j+1,2] then
begin
dop:=k[j,2];
k[j,2]:=k[j+1,2];
k[j+1,2]:=dop;
end;
end;

writeln('сформированный массив');
for i:=1 to m do
writeln(b[k[i,1]]);

writeln('исходный массив');
for i:=1 to l do
writeln(a[i]);
end.

[capta1n]

давай, переведу, в асю пиши 397970640