Определить, содержит текст заданную строку длинной не более 255 из символов 0 и 1

uses crt;
var m:array[1..100] of string;
    s:string;
    n,i,k,j:byte;
begin
clrscr;
write('Vvedite kolichestvo strok n=');
readln(n);
for i:=1 to n do  {создаем массив строк}
  repeat
    write('Stroka ',i,': ');
    readln(m[i]);
    k:=0;
    for j:=1 to length(m[i]) do {проверяем правильность ввода строки}
    if not (m[i][j] in ['0','1']) then k:=k+1;
    if k>0 then writeln('Neverno vvedena stroka! Povtorite vvod.');
  until k=0;
write('Vvedite stroku dlya poiska:');
readln(s);
k:=0;
for i:=1 to n do
if m[i]=s then {ищем заданную строку в массиве}
  begin
   write('Takaya stroka est!');{если нашли, сообщаем}
   readln; {читаем}
   k:=1; {фиксируем находку}
   exit;{выходим}
  end;
if k=0 then write('Takoj stroki net!');{если не нашли, сообщаем}
readln
end.

uses CRT;
var iskomaya, str : string;
    f             : Text;
    ch            : Char;
    str_len       : integer;
    Naidena       : boolean;
 
 
function SearchForString (search_in : string; search_for: string) : Boolean;
var ret : Boolean;
    sf_len, si_len, i, q : integer;
 
begin
  ret := False;
 
  sf_len := length(search_for);
  si_len := length(search_in);
 
  for i:=1 to si_len - sf_len do
  begin
 
    if search_in[i] = search_for[1] then
      for q:=1 to sf_len do
        if (search_in[i+q] = search_for[q]) and (q=sf_len) then ret := true;
 
    if (ret=True) and (q=sf_len) then break;
  end;
 
  SearchForString := ret;
end;
 
begin
  ClrScr;
 
  Write('Vvedite iskomuyju stroky : ');
  ReadLn(iskomaya);
 
  {открываем файл data.txt в текущей папке}
  Assign(f, 'data.txt');
  Reset(f);
 
  {читаем}
 
  Naidena := False;
 
  while not eof(f) do
  begin
 
    str_len := 0;
    str     := '';
 
    while (not eof(f)) and (str_len<256) do
    begin
      Read(f, ch);
      if (ch='0') or (ch='1') then
      begin
        str := str + ch;
        Inc(str_len);
      end;
    end; {while (not eof(f)) and (str_len<256)}
 
    Naidena := SearchForString(str, iskomaya);
 
    if Naidena=True then break;
 
  end; {while not eof(f)}
 
  Close(f); {закрываем файл}
 
  WriteLn;
 
  if Naidena=True then
    WriteLn('Stroka "',iskomaya,'" soderjitsya v dannom tekste!')
  else
    WriteLn('Stroka "',iskomaya,'" NE soderjitsya v dannom tekste!');
 
  WriteLn;
 
  Write('Press any key for continue...');ReadLn;
end.