From bcb4e3aac299c7b6b47f300e1d28a91a6654b72c Mon Sep 17 00:00:00 2001
From: Trivernis <trivernis@hotmail.de>
Date: Thu, 15 Nov 2018 13:27:40 +0100
Subject: [PATCH] Changes to biketour

---
 .gitignore        |  4 ++++
 biketour/tour.pas | 10 +++++-----
 2 files changed, 9 insertions(+), 5 deletions(-)
 create mode 100644 .gitignore

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..5eafa01
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,4 @@
+*.iml
+*.exe
+.idea
+*.o
diff --git a/biketour/tour.pas b/biketour/tour.pas
index 9af11b0..44c1b8a 100644
--- a/biketour/tour.pas
+++ b/biketour/tour.pas
@@ -1,4 +1,4 @@
-program login;
+program tour;
 
 uses
   md5, crt;
@@ -39,7 +39,7 @@ hotels: array [0..4] of HOTEL = (
 var
   readinput: string;
   i, j, distance_total, hnum1, hnum2: integer;
-  correct, exit: boolean;
+  correct, exit_loop: boolean;
   usersuccess: boolean = false;
   velocity, time: real;
 
@@ -50,7 +50,7 @@ procedure hotelmain;
 var
   i : integer;
 begin
-  while exit = false do
+  while exit_loop = false do
   begin
     distance_total := 0;
     for i := 0 to 4 do
@@ -83,9 +83,9 @@ begin
     ReadLn(readinput);
 
     if readinput = 'y' then
-      exit := true
+      exit_loop := true
     else
-      exit := false;
+      exit_loop := false;
   end;
 end;