Помощь в доработке программы на языке паскаль (бинарный поиск, поиск перебором)

[DimzNOVIchok45]

Прошу помочь доработать программу. Нужно заставить ее, чтобы она выводила предложение для выбора либо бинарный поиск, либо поиск перебором. А так же прошу помочь связать бинарный поиск с файлом test.txt в котором содержатся упорядоченные строки
вот текст программы:

const
n = 15;
type
TMyArray = array [1..n] of string;
procedure Perebor(s: string; a: TMyArray);
var
i: integer;
k: integer;
begin
i := 1;
k := 1;
while (i <= n) and (a[i] <> s) do
begin
i := i + 1;
k := k + 1;
end;
if (i > n) then
writeln('Строка ', s, ' не найдена. Количество сравнений ', k - 1)
else
writeln('Строка ', s, ' найдена в позиции ', i, '. Количество сравнений ', k);
end;
{Бинарный поиск}
function BinarySearch(A: TMyArray; s:string; key: string): integer;
var mid, left, right,  i: integer;
    
begin
  left:=1; right:=N;
while left<=right do
begin
  mid:=left+(right-left) div 2;
if (key<A[mid]) then right:=mid-1
else if (key>A[mid]) then left:=mid+1
else begin BinarySearch:=mid; exit; end;
end;
BinarySearch:=-1;
end;
var
  sl, f, f1: TextFile;
  arr: TMyArray;
  str: string;
  i: integer;

Begin
//Заполнение массива arr из файла sl
	for i := 1 to n do
	arr[i] := '';
	Assign(sl, 'sorted_list.txt');
	Reset(sl);
	i := 1;
	while not Eof(sl) and (i <= n) do
	begin
	Readln(sl, arr[i]);
	inc(i);
	end;
	Close(sl);
	//Поиск перебором в массиве arr строк из файла f
	Assign(f, 'sorted_list.txt');
	Reset(f);
	while not Eof(f) do
	begin
	readln(f, str);
	Perebor(str, arr);
	end;
	Close(f);
End.