Как использовать инструмент чтоб создать конус и сферу​

Program Pr1;
uses crt;
var mas:array[1..15] of integer;
i,max,min,b,v:integer;
Begin
clrscr;
for i:=1 to 15 do mas[i]:=random(10);
for i:=1 to 15 do write(mas[i]);
max:=0;
min:=100000;
b:=0;
for i:=1 to 15 do begin
if mas[i]>max then max:=i;
if mas[i]<min then min:=i;
end;
if max>min then for i:=min to max div 2 do begin
v:=mas[max-b];
mas[max-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end
else for i:=max to min div 2 do begin
v:=mas[min-b];
mas[min-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end;
writeln();
for i:=1 to 15 do write(mas[i]);
end.

#include <iostream>
using std::cout;
using std::endl;

void move(int*, const int);
void print(const int*, const int);

int main()
{
const int arraySize = 10;
int a[arraySize] = { 4, 7, 3, 9, 2, 1, 8, 6, 5, 10 };

cout << "Array before modify:" << endl;
print(a, arraySize);

move(a, arraySize);

cout << "\nArray after modify:" << endl;
print(a, arraySize);

return 0;
}

void print(const int *a, const int size)
{
for(int i = 0; i < size; i++)
{
cout << a[i] << ' ';
}

cout << endl;
}

void move(int *a, const int size)
{
int smallest = 0;
int largest = 0;
int temp;

for(int i = 1; i < size; i++)
{
if(a[smallest] > a[i])
{
smallest = i;
}

if(a[largest] < a[i])
{
largest = i;
}
}

temp = a[smallest];
a[smallest] = a[largest];
a[largest] = temp;
}