From d1d50a826bef898d19976cd6a13fb10dfe0adc59 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Sat, 8 May 2021 19:48:44 +0200
Subject: Fix off-by-one error for Pascal solution (week 111, part 1)

---
 challenge-111/abigail/pascal/ch-1.p | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-111/abigail/pascal/ch-1.p b/challenge-111/abigail/pascal/ch-1.p
index b94e34fca9..75db5f1c79 100644
--- a/challenge-111/abigail/pascal/ch-1.p
+++ b/challenge-111/abigail/pascal/ch-1.p
@@ -42,7 +42,7 @@ function bsearch (matrix: matrix_type; target: Longint) : Integer;
                 min     := mid + 1;
             end
             else begin
-                max     := mid - 1;
+                max     := mid;
             end
         end
     end;
-- 
cgit