Pomoc s vývojovým diagramem ke kodu

Zdravím Vás,
nevím si trošku rady s vývojovými diagramy k jedné práci

Je to vývoj. diagram k funkci typu boolean
begin
p:=0;
z:=FPole[X,Y];

for i:= Y to High(FPole[1]) do
if FPole[X, i] = z then
p:= p+1
else
Break;
if Y > 1 then
for i := Y-1 downto low (FPole[1]) do
if FPole [X, i] = z then
p := p+1;
else
Break;
Result:= (p >= Yes);
end;

Moc děkuji za pomoc

Můj návrh (ale špatný) je tento:
vvvxt.jpg