Помогите с программой на паскале. Пишу в Turbo Delphi Lite.

[Андрюша1]

https://jsfiddle.net/3dfff1oL/2/ - это мой код.
Он почему-то компилируется и не работает. Объясните почему.

Это часть программы для имитации движения заряженных частиц на большой плоскости, которая должна заполнять массив записей этими частицами по считываемым данным и двигать их.
Сообщений об ошибках никаких нету.
Попробуйте сами код скомпилировать он при компиляции из IDE даёт окошко и через неестественно короткое время убирает его, а при запуске полученного exe-файла из проводника зависает и операционная система его закрывает.
Самое интересное что на readln он не реагирует и при отладке ничего не получается.
Вот содержимое читаемого файла:
100000
100000
100000
100000
100000
100000
100000
100000
100000
100000
100000
100000
100000
100000
100000

[Alex11223]

jsfiddle для паскаля оригинально.

[Андрюша1]

А почему бы и нет...

[Pavia]

Всё хорошо, но такой код никто смотреть не будет. Когда вы пишете код для себя вы можете делать как угодно. Но если надо показать его форуме или если вы пишете его совместно с другими или хотите его, то текст программы должен удовлетворять требованиям качественного кода.
Перепишите его в соответствии с правилами оформления кода. Для начала:
- замените повторяющиеся участки кода циклами;
- разбейте код на функции;
1) каждый цикл оформите отдельной функцией с говорящим, осмысленным названием;
2) Повторяющийся код тоже вынесите в функции;
- числовые константы замените псевдонимами. Используйте служебное слово "const".
А также не помешает отсылка к описанию к известным методам и функциям, которые вы использовали. Их тоже можно оформить функциями с узнаваемыми именами.

[type_Oleg]

Фрагмент:

m[1]:=10;
  m[2]:=8;
  m[3]:=8;
  m[4]:=8;
  m[5]:=8;
  m[6]:=8;
  m[7]:=4;
  m[8]:=4;
  m[9]:=4;
  m[10]:=4;
  m[11]:=4;
  m[12]:=5;
  m[13]:=5;
  m[14]:=5;
  m[15]:=5;
  q[1]:=2;
  q[2]:=-1;
  q[3]:=-2;
  q[4]:=-3;
  q[5]:=-4;
  q[6]:=-5;
  q[7]:=5;
  q[8]:=4;
  q[9]:=3;
  q[10]:=2;
  q[11]:=1;
  q[12]:=-3;
  q[13]:=-3;
  q[14]:=-3;
  q[15]:=-3;
  assign(f, '_mainraspredfail.txt');
  reset(f);
  readln(f, z[1]);
  readln(f, z[2]);
  readln(f, z[3]);
  readln(f, z[4]);
  readln(f, z[5]);
  readln(f, z[6]);
  readln(f, z[7]);
  readln(f, z[8]);
  readln(f, z[9]);
  readln(f, z[10]);
  readln(f, z[11]);
  readln(f, z[12]);
  readln(f, z[13]);
  readln(f, z[14]);
  readln(f, z[15]);

А если было бы не 15, а 1000 например ?

PS И как у вас текстовый файл читается в целочисленные переменные ?

[min@y™]

Как звучит оригинал задания?

[Андрюша1]

Всё, я сам нашёл ошибку!!! Она была в последнем цикле из-за того что я забыл проверить переменную oo на соответствие диапазону индексов массива.