Exercice pascal,probleme

program ex19;
uses wincrt;
var X,Y,p,i:integer;
begin
    writeln('press an integer');
    readln(X);
    writeln('press another');
    readln(Y);
    if (Y=0) then p=1
    else
    begin
        repeat
            i:=1;
            i:=i+1;
            p:=1;
            p:=p*X;
        until i=Y;
    end;
    writeln(p);
end.