Как переделать готовую программу в паскаль?

Попробуйте так:

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

if (X=Team[K]) then break

end;

if(X=Team[R]) then WriteLn(X,' Имеет', P[R],' очков')

else WriteLn(X,' Нет в таблице')

end.