diff --git a/pronto.pas b/pronto.pas
index d602a9f..63af658 100644
--- a/pronto.pas
+++ b/pronto.pas
@@ -462,5 +462,6 @@ begin
 
 	while i = 1 do
 	begin
+menu(lista,i);
 	end;
 end.