[SpaWn-of-hell]

Сообщение от Без_Имени

Скрытый текст:

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.

Я так понимаю, это отсканировано из какой-то книги. Там везде, где должно быть "]" стоит "1".
Например, вот это:

mas[i1:= mas[i1+st2[n1;

Должно выглядеть как

mas[i]:= mas[i]+st2[n];

Ну и пробелы некоторые пропали. Например,

If op= 1then Perebor(sl)

Пробел после "1", конечно.
Просто проверь весь текст на такие ошибки.