Возведение в степень. Рекурсии

[Иван 883]

Здравствуйте, помогите найти ошибку в программе. Задание следующее:
Вычислить X в степени Y путем многократного умножения (X, Y: INTEGER) Вот то что у меня получилось:

program lab13;
uses crt;

procedure InputData(var x,y:integer);
begin
  writeln('Это программа, вычисляющая x в степени y');
  writeln('Введите x');
  readln(x);
  writeln('Введите y');
  readln(y);
end;

function Solution(var x,y:integer):longint;
begin
  if y=0 then Solution:=1
  else Solution:=y*Solution(x,y-1);
end;

var x,y:integer;
    z:longint;
begin
  clrscr;
  InputData(x,y);
  z:=Solution(y);
  writeln(x,' в степени ',y,'=',z);
  readln;
end.

[Sazary]

Во-первых:

function Solution(x,y:integer):longint;
begin
  if y=0 then Solution:=1
  else Solution:=x*Solution(x,y-1);
end;

Во-вторых:

InputData(x,y);
z:=Solution(x,y);