так как ты при входе в prog3 объявляешь все время var a:integer;, то "a" никогда не будет = 10 (если с ним не производится никаких действий) и
if a = 10 then prog1; до лампочки

if a = 10 then prog1 else a:=a+1; попробуй-так сработает или нет ?

------------ Дoбавленo:

т.е. полностью текст prog3