Помогите решить три задачи на паскале, пожалуйста!

1) Может не процедуру, а функцию…
Тогда так:

function Power(N, P : Integer) : Integer;
var
R : Integer;
begin
R := 1;
while P > 0 do
begin
R := R * N;
Dec(P);
end;
Power := R;
end;

Вычисляем:

Y := A1*Power(X, 4) + A2*Power(X, 3) + A3*Power(X, 2) + A4*X + A5;

2) Как-то так:

procedure Swap(var N1, N2 : Integer);
var
T : Integer;
begin
if N1 > N2 then
begin
T := N1; N1 := N2; N2 := T;
end;
end;

Теперь сортируем:

Swap(A, B); Swap(A, C); Swap(A, D); Swap(A, E);
Swap(B, C); Swap(B, D); Swap(B, E);
Swap(C, D); Swap(C, E);
Swap(DA, E);

Дальше надоело разбираться… Ни хрена не видно!