Программирование

Program gory;
var
n,i,min1,min,x1,x2,x3,x4,y1,y2:integer;
u:boolean;
begin
readln(n);
min:=n;
for i:=1 to n do 
begin
readln(y2);
if (y2>y1)  then 
begin
if y1<>0 then u:=true;
x1:=i
end else if (y2<y1) and (u=true) then
begin 
u:=false;
min1:=i-x1;
        write('----',min1,'---');
x2:=i
end;

if min1<min then 
begin
min:=min1;
x3:=x1-1;
x4:=x2
end;

y1:=y2;
end;
write(min, 'x1=',x3,'; x2=', x4);

end.