Написать программу для возведения в степень

Program p_2; var    z, a : real; m : integer; function step (n: integer; x: real): real; var    i: integer; y: real;       begin      i: =1; y: =1;           while i< =n do              begin          y: =y*x; i: =i+1;               end;                   step: =y;           end;   {конец функции}begin    write(‘введи степень и возводимое число’); readln(z,m);     f: =step(m,z);     writeln(z, ‘ в степени’, m, ‘=’,f); end.