Программирование ПАСКАЛЬ!!! СРОЧНО!!

нужно переделать программу ниже под условие: дополнить с условием что для очередного значения К, окажется истинным условие X=Team[K], то можно прервать цикл деления интервала пополам и вывести в качестве результата значение В [К]
Сама Программа
program premier_liga_2;
const M=1; N=16;
var P: array[M..N] of byte;
Team: array [M..N] of string[20];
X: string[20];
i, L, R, K: integer;
begin
WriteLn('Введите: команда - очки');
for i:=M to N do
begin
write(i, ' Команда:'); Read(Team[i]);
write(' Очки:'); Readln(P[i])
end;
write('Введите название команды:'); Readln(X);
L:=M; R:=N;
while ((R-L)>0) do
begin
K:=(R+L) div 2;
if (X<=Team[K]) then R:=K else L:=K+1
end;
if(X=Team[R]) then WriteLn(X,' Имеет', P[R],' очков')
else WriteLn(X,' Нет в таблице')
end.
ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!!