Проблемы С прогой на Pascal

0

0

Вообщем товарищи, есть такой код(разбитый по мудулям)


Unit DesUnit;
Interface
Uses Crt;
Const
 Nmax = 500;
Type
 String80 = String[80];
 Ar = array[1..Nmax] of String80;
 Dynar = ^ Ar;
Var
 Sr : DynAr;
Implementation
end.
-----------------------------------------------
{ОСНОВНАЯ ПРОГА}

Program test;
Uses DesUnit,Crt;
Var
 S : DynAr;
 n : integer;
 F : text;
Begin
 Assign(F,'D:\docs\test\test.txt');
 Reset(F);
 n:=0;
 While not Eof(F) do
  Begin
   Inc(n);
   Read(F,S^[n]);
  end;
end.

Вообем при запуске оной под TP 7.0 под Винь ХР вылетает сдедущее окошко с мессагой

  Процессор NTVDM обнаружил недопустимую инструкцию.
  CS:00a IP:0015 OP:ff ff ff a9 26 Для завершения работы нажмите кнопку "Закрыть"

Что-то я никака не могу сообразить - где тут ошибка, что я не так делаю? (открываемый файл и путь к нему сеществуют)