помогите пожалуйста по этой программе составить блок-схему.

[Полина)]

DIM a(8)
FOR i=1 TO 8
input a(i)
next
m=a(1)
n=a(1)
FOR s=1 TO 8
if a(s) > m then m=a(s)
next s
for c=1 TO 8
if a(c) < n then n=a(c)
next c
print "max"; m
print "min"; n
end