%-------------------Procedure code for choice 1----------------------
procedure choice1
cls
locate (1, 1)
put "This program allows the user to purchase puppies from our store, "
locate (2, 1)
put "WOOF-WOOF-ORAMA. Once the user has chosen puppies to purchase he/she "
locate (3, 1)
put "will be able to see the average price, number of puppies and total "
locate (4, 1)
put "price with any discounts."
locate (6, 1)
put "Press any key to go back to the main menu"
getch (back)
cls
end choice1

ok a couple of problems, you can compare a whole lot of values using commas, u cant go
if a, b, c > 5
you can
if a> 5 and b > 5 and c>b
I dunno if theres another way.
Also the variable sum can't be integer unless u are planning to round the whole calculation.