Блочный поиск (исправить код)

const N=1000;
 
type  strc=string[20];
      Trec=record
      num:integer;
      str:strc;
      F:boolean;
      end;
      TM=array[1..N] of TREC;
 
var M:TM;
    i,z,k,h:integer;
    count:integer;
 
procedure Vivod;
begin
randomize;
  for i:=1 to N do
  begin
    with M[i] do
    begin
    num:=random(201);
    str:='My_test_' + inttostr(i);
    F:=False;
    writeln(num:5,' ',str:15,' ',F:10);
    end;
  end;
  write('--------------------------------------');
end;
 
procedure Sort;
var  j:integer;
      s1:string;
begin
    for i:=1 to N-1 do
    for j:=1 to N-i do
      if M[j].str > M[j+1].str then
      begin
        s1:=M[j].str;
        M[j].str:=M[j+1].str;
        M[j+1].str:=s1;
      end;
  write('-------------------------------------------');
  writeln;
  for i:=1 to N do
  begin
  writeln(M[i].num:5,' ',M[i].str:15,' ',M[i].F:10);
  end;
  write('-------------------------------------------');
end;
 
procedure Searchfield_2;
var s:string;
begin
repeat
writeln('Введите строку');
readln(s)
until (length(s)>=8) and (s<>'') and (length(s)<15);
h:=trunc(sqrt(N));
i:=1;
repeat
  if M[i].str=s then
  begin
    M[i].F:=True;
    writeln(M[i].num:5,' ',M[i].str:15,' ',M[i].F:10);
      write('------------------------------------------');
      writeln;
  end;
  If M[i].str<>s then
  begin
  M[i].F:=True;
  inc(i,h);
  end;
  until (M[i].str>=s) or (i>N);
  M[i].F:=True;
 
  if (M[i].str=s) and (M[i].str>'My_test_1') then
  begin
  writeln(M[i].num:5,' ',M[i].str:15,' ',M[i].F:10);
  write('------------------------------------------');
  writeln;
    for z:=1 to N do
    begin
    writeln(M[z].num:5,' ',M[z].str:15,' ',M[z].F:10);
  end;
  end;
 
  if i>N then
  begin
  for z:=N-h to N do
    begin
    M[z].F:=True;
      if M[z].str=s then
      begin
      writeln(M[z].num:5,' ',M[z].str:15,' ',M[z].F:10);
      break;
      end;
    end;
      write('------------------------------------------');
      writeln;
    for k:=1 to N do
      begin
      writeln(M[k].num:5,' ',M[k].str:15,' ',M[k].F:10);
      end;
      end;
 
  if M[i].str>s then
  begin
    for z:=i-h to i do
    begin
      M[z].F:=True;
      if M[z].str=s then
      begin
      writeln(M[z].num:5,' ',M[z].str:15,' ',M[z].F:10);
      break;
      end;
    end;
    write('------------------------------------------');
    writeln;
      for k:=1 to N do
      begin
      writeln(M[k].num:5,' ',M[k].str:15,' ',M[k].F:10);
      end;
  end;
 
      if s='My_test_1' then
      for z:=1 to N do
      begin
         writeln(M[z].num:5,' ',M[z].str:15,' ',M[z].F:10);
      end;
    write('------------------------------------------');
    writeln;
 
    count:=0;
    for i:=1 to N do
    begin
      if M[i].F=True then
      inc(count);
    end;
    write('Кол-во True = ',count);
    writeln;
    write('------------------------------------------');
end;
 
begin
vivod;
SORT;
writeln;
Searchfield_2;
readln;
end.