Нужна помошь программеры есть, тут паскаль но не работает, в чем ошибка?
Скрытый текст:
PROGRAM NUM;
procedure Perebor (sl:string);
var i,k,mesto:integer;var f:text;var mas:array[1..201of string;
BEGIN i:=1;
While (mas[i1<>sl) and (i < 20 ) do i:=i+1;
If mas[i1= sl then Writeln('слово найдено, его место в таблице = ',i,'количество сравнений = ',i)
Else Writeln('слово не найдено');
END;
Var sl: string; var i,n,op,k,mesto:integer;var f:text;var mas:array[1..201of string;
st2: string;
BEGIN
assign(f,'tabl.txt');
reset(f);
i:=1; n:=1; readln(f,st2);
while n<= Length(st2) do
begin
While st2[n1<>' ' do begin
mas[i1:= mas[i1+st2[n1; n:=n+1; end;
Write(mas[i1,' ');
n:=n+1; i:=i+1;
end;
Writeln('введите искомое слово');
Readln(sl); Writeln('для поиска перебором нажмите1, для бинарного поиска нажмите 2');
Readln(op);
If op= 1then Perebor(sl) Else Binar(sl);
END.
И про бинарник расскажите?