Potenciação

program potenciacao;
uses crt;
  function potencia(x,z:integer):integer;
  var cont, mult:integer;
  begin
    mult:= 1;
    for cont := 1 to z  do
    begin
      mult:= mult*x;
      potencia:=mult;
    end;
  end;
  var a,b,mult:integer;
  begin
    clrscr;
    writeln ('Digite os numeros');
    readln (a, b);
    while A<>0 do
    begin
      writeln ('Potencia:',potencia(a,b));
      writeln ('Digite os numeros');
      readln (a, b);
    end;
    readkey;
  end.