From 787c5c67a5c9d03245550304f989e65e5a6c0b73 Mon Sep 17 00:00:00 2001
From: IllusionMan1212 <zyxunzack@gmail.com>
Date: Tue, 19 Jun 2018 20:44:01 +0200
Subject: [PATCH] Added retry when winning

---
 Guessing.pas | 27 +++++++++++++++------------
 1 file changed, 15 insertions(+), 12 deletions(-)

diff --git a/Guessing.pas b/Guessing.pas
index c47dc53..f03328d 100644
--- a/Guessing.pas
+++ b/Guessing.pas
@@ -16,9 +16,7 @@ begin
       if (entry = myRnd) then
         begin
           writeln('BINGO!!!!');
-          writeln();
-          writeln('Do you want to retry? [Y/N]');
-          readln(dialog);
+            break;
         end
       else
       if (entry < myRnd) and (i <> 10) then
@@ -31,7 +29,10 @@ begin
           write('aim lower');
         end;
     end;
-    writeln('GAME OVER!');
+    if (i = 10) then
+      begin
+        writeln('GAME OVER!');
+      end;
     writeln();
     writeln('Do you want to retry? [Y/N]');
     readln(dialog);
@@ -49,9 +50,7 @@ begin
       if (entry = myRnd) then
         begin
           writeln('BINGO!!!!');
-          writeln();
-          writeln('Do you want to retry? [Y/N]');
-          readln(dialog);
+            break;
         end
       else
       if (entry < myRnd) and (i <> 5) then
@@ -64,7 +63,10 @@ begin
           write('aim lower');
         end;
     end;
-    writeln('GAME OVER!');
+    if (i = 5) then
+      begin
+        writeln('GAME OVER!');
+      end;
     writeln();
     writeln('Do you want to retry? [Y/N]');
     readln(dialog);
@@ -82,9 +84,7 @@ begin
       if (entry = myRnd) then
         begin
           writeln('BINGO!!!!');
-          writeln();
-          writeln('Do you want to retry? [Y/N]');
-          readln(dialog);
+            break;
         end
       else
       if (entry < myRnd) and (i <> 3) then
@@ -97,7 +97,10 @@ begin
           write('aim lower');
         end;
     end;
-    write('GAME OVER!');
+    if (i = 3) then
+      begin
+        write('GAME OVER!');
+      end;
     writeln();
     writeln('Do you want to retry? [Y/N]');
     readln(dialog);