Fixed program 2 to sort multiple vectors not only 1

final_lang/programas/programa2.fort

@@ -34,9 +34,16 @@ subroutine sort
         end do
     end do
 end subroutine
-readDim()
-readVec()
-sort()
-print 'Sorted vector: '
-printVec()
+do then
+    readDim()
+    readVec()
+    sort()
+    print 'Sorted vector: '
+    printVec()
+    print 'Do you want to sort another vector? enter 1 for yes and 0 for no', endline
+    read temp
+    if (temp == 0) then
+        exit
+    end if
+end do
 end program

final_lang/programas/programa2.fort.out

@@ -72,3 +72,10 @@ call 2
 call 40
 print 'Sorted vector: '
 call 16
+print 'Do you want to sort another vector? enter 1 for yes and 0 for no'
+print endline
+read $213
+== $213 0 $11
+gotoF $11   81
+goto   82
+goto   70