помогите,пожалуйста
Посто\роить программы используя одномерный массив из 100 чисел.Найти элементы которые больше 10 и вывести квадрат этих чисел до 100.

n:=10

for i:=1 to n do

begin

arr[ i ] := random(50);

writeln(arr[ i ]);

end;

min:=arr[ 0 ];

for i:=1 to n do

if (arr[ i ] < min) then min := arr[ i ];

arr[ 0 ]:=min;

for i:=1 to n do

write(arr[ i ],' ');

мой брат писал