Сортировка, поиск, рекурсивный алгоритм Delphi

[Stases]

1. Упорядочить по убыванию одномерный массив методом вставки
2. Поиск элемента последовательным перебором в одномерном массиве
3. Рекурсивный алгоритм. Вычислить X в степени Y путем многократного умножения (X, Y простые числа)

если кто-то может написать или помочь как-то, пожалуйста помогите, потому что времени не хватает

[MAKEDON]

1) Сортировка выбором.

сортируется массив A размером N чисел.

procedure sort4;
var i,j,kmin,c:integer;
begin
for i:=1 to n-1 do
 begin
 kmin:=i;
 for j:=i+1 to n do if a[kmin]>a[j] then kmin:=j;
 c:=a[i];
 a[i]:=a[kmin];
 a[kmin]:=c;
 end;
end;

2) Ну это просто циклом!

3) Вот алгоритм на Си. Переделай под Делфи!

int pow(int x,int y){
	if(y==0){return 1;}
	if(y==1){return x;}
	return pow(x,y-1)*x;
}

[Рамик]

2:

{========POISK=============}
...
writeln('vvedite element kotorii  nuzhno naiti:');
readln(p);
for i:=1 to n do
     if p=a[i] then begin
     writeln('element naiden;');
     writeln(a[i]);
     end;
...

[spamer]

3) Поиск по форуму:
http://programmersforum.ru/showthread.php?t=43062

[Stases]

спасибо всем)