[v1s2222]

Не знаю что там дальше, смотреть как-то перехотелось после просмотра первых 2 строчек...

Код:

// так нельзя!
//  Reset(Input,'bisqr.in');
//  Rewrite(Output,'bisqr.out');
  AssignFile(Input, 'bisqr.in');
{$I-}
  Reset(Input);
  if(if IOResult <> 0) then
    ReWrite(Input);
{$I+}
...