Сделать программу на pascal

Дано целое число b и натуральное (целое неотрицательное) число m. Вычислить b в степени m.

/Program granat;
Uses Crt;
var A: array [1..10] of integer;
i,k,x,z,vsp:integer;
begin
write ('Исходный массив:');
for i := 1 to 10 do begin
A[i]:=random(10); {Заполняем массив}Write (A[i]:3);end;
writeln;
begin
for k:=1 to 9 do
begin
x:=A[k];vsp:=k;
for i:=k+1 to 10 do
if a[i]<x then
begin
x:=A[i];vsp:=i;end;
if vsp>k then
begin
z:=a[k];a[k]:=a[vsp];a[vsp]:=z;end;end;end;
write ('Отсортированный массив:');for i := 1 to 10 doWrite (A[i]:3);writeln;
begin
for i:=1 to 10 do
if A[i] mod 2 = 0 then Write (A[i]:3);
end;end.

Const
  n = 10;
var
  a: array[1..n] of integer;
  i, j, t: integer;
  flag:boolean;
 
begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := random(101)-50;
    Write(a[i]:4)
  end;
  Writeln;
  i:=1;
  repeat
    flag:=true;
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t; flag:=false end;
    Inc(i);
  until (i>n-1) or flag;
  Writeln('Отсортированный по возрастанию массив');
  for i := 1 to n do Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Исходный массив
 -32  -7   2   2  50 -33   1  31   4 -16
Отсортированный по возрастанию массив
 -33 -32 -16  -7   1   2   2   4  31  50