преобразование программы

[Ananim-Pbl6ak]

есть задача на формирование массива:Ввести последовательность целых чисел. Сформировать массив из чисел исходной последовательности, меньших по абсолютной величине корня кубического из Max, и вектор из ее четных чисел, больших квадрата Min.

есть готовое решение уже:
program ananimribak;
uses crt;
var a,b:array [1..10] of integer;
min,max,i,j:integer;
begin
randomize;
clrscr;
writeln('исходный массив');
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:4);
end;
min:=1; max:=1;
for i:=2 to 10 do
begin
if a[i]>a[max] then max:=i
else if a[i]<a[min] then min:=i;
end;
writeln;
writeln('минимальный элемент массива - ',a[min],' ','максимальный элемент массива - ',a[max]);
for i:=1 to 10 do
begin
if a[i]<sqrt(a[max]) then
begin
inc(j);
b[j]:=a[i];
end;
end;
writeln('массив из чисел меньших по абсолютной величине корня кубического из Max');
for i:=1 to j do
write(b[i]:4);
j:=0;
for i:=1 to 10 do
begin
if (a[i]>(max*max)) and (a[i] mod 2 = 0) then
begin
inc(j);
b[j]:=a[i];
end;
end;
writeln;
writeln('вектор четных чисел, больших квадрата Min');
for i:=1 to j do
write(b[i]:4);
readln;
end.


а мне надо этот код преобразовать под мое начало
вот оно
program SozdMassiv;
{‚лЇ®«*Ё« ђ®¬**®ў Ђ*в®*}
const
dim=10;
type
TVector=array[1..dim] of byte;
var
i,min,max:byte;
V,v1,v2:TVector;
begin
write('задайте количество натуральных чисел <= ',dim,' ');
readln(kolvo);
writeln('введите ',kolvo,' **натуральных чисел');
for i:=1 to kolvo do
read(V[i]);
readln;
max:=v[1]; min:=v[1];
for i:=2 to kolvo do
begin
if v[i]>max then max:=v[i]
else if v[i]<min then min:=v[i];
end;
writeln;
writeln('минимальный элимент массива* - ',v[min],' ','максимальный элимент* - ',v[max]);
for i:=1 to kolvo
begin
if v[i]<sqrt(v[max]) then
begin
inc(j);

[Ananim-Pbl6ak]

ребята плз на вас последняя надежда