Power for integers , Pascal

Language: Layout:

function power(x,y:integer):real;
var counter:integer;
var result:real;
begin
    if y>0 then
        begin
            result:=1;
            for counter:=1 to y do
                begin
                    if (x>0) or (x<0) then
                        begin
                            result:=result*x;
                        end
                    else
                        begin
                            result:=0;
                        end;
                end; 
            power:=result;
            write(power);
        end
    else if y=0 then
        begin
            result:=1;
            power:=result;
            write(power);
        end
    else
        begin
            if x=0 then
                begin
                    write('ERROR');
                end
            else
                begin
                    result:=1;
                    for counter:=1 to abs(y) do
                        begin
                            result:=result*(1/x);
                        end;
                    power:=result;
                    write(power);
                end          
        end
end;
var x,y:integer;
begin
    readln(x);
    read(y);
    power(x,y);
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.13 sec, absolute running time: 0.14 sec, cpu time: 0.08 sec, memory peak: 3 Mb, absolute service time: 0,46 sec