Не могу понять ошибку

var
  i, j, b: integer;
  ft, ft2: TextFile;
  s: string;
  sc: array of integer;
 
begin
  if OpenDialog1.Execute then
  begin
    Randomize;
 
    AssignFile(ft, OpenDialog1.FileName);
    Reset(ft);
 
    i:= 0;
 
    SetLength(sc, 1000); // чтобы не перекладывать в памяти массив на каждой строчке
 
    // Подсчёт количества строк в файле
    while not Eof(ft) do
    begin
      sc[i] := FilePos(ft); // в массиве будут позиции начала строк
 
      Inc(i);
 
      if i >= Length(sc) then  // добавим еще 1000 элементов в массив, если не хватило
        SetLength(sc, Length(sc) + 1000);
 
      SeekEoln(ft);  // перейдем в конец строки
    end;
 
    SetLength(sc, i); // уберем лишние элементы массива
 
    // Перемешивание массива
    for i := High(sc) downto Low(sc) do
    begin
      b:= Random(i);
      j:= sc[b];
      sc[b]:= sc[i];
      sc[i]:= j;
    end;
 
    AssignFile(ft2, ExtractFileDir(OpenDialog1.FileName)+'\Random_STR.txt');
    Rewrite(ft2);
 
    for i := Low(sc) to High(sc) do
    begin
      Seek(ft, sc[i]);
 
      Readln(ft, s);
 
      Writeln(ft2, s);
    end;
 
    CloseFile(ft);
    CloseFile(ft2);
  end;
end;