Паскаль. Работа с массивами

[pas18]

Помогите пожалуйста!
программа на выполнении выдает ошибку Runtime error 106.
Не понимаю почему.
Вот сама программа:

program massiv;
var a,d,w:array[1..10] of integer;
N,i:integer;
f1:text;
begin
write('Введите имя файла исходных данных: ');
assign(f1,'LABA9.TXT');
reset(f1);
readln(f1,N);
writeln;
writeln('исходный массив:');
for i:=1 to 9 do
begin
read(f1,A[i]);
write(A[i]:4);
end;
writeln;
writeln('массив результатов 1:');
for i:=1 to 9 do
begin
D[i]:=A[i] div 4;
write(D[i]:4);
end;
writeln;
writeln('массив результатов 2:');
for i:=1 to 9 do
begin
W[i]:=A[i] mod 4;
write(W[i]:4);
end;
end.

LABA9.TXT :

-----------------------------------
10

20 30 40 50 60 70 80 90 100
-----------------------------------

[Stilet]

Теоретически прога правильная, ибо выдает:

┬тхфшЄх шь* Їрщыр шёїюфэ√ї фрээ√ї:
шёїюфэ√щ ьрёёшт:
20 30 40 50 60 70 80 90 100
ьрёёшт Ёхчєы№ЄрЄют 1:
5 7 10 12 15 17 20 22 25
ьрёёшт Ёхчєы№ЄрЄют 2:
0 2 0 2 0 2 0 2 0

Возможно ты просто не туда куда надо ложиш свой текстовик.

[pas18]

Возможно ты просто не туда куда надо ложиш свой текстовик.

текстовик находится там же, где и сама программа

[Stilet]

А экзешник? Он где создается? Текстовик должен быть в той папке, где появляется после компиляции экзешник

[pas18]

Сообщение от Stilet

А экзешник? Он где создается? Текстовик должен быть в той папке, где появляется после компиляции экзешник

все на месте

[Stilet]

Тогда не знаю... Ошибка не в программе...

[pas18]

а как ты получил вот это?

┬тхфшЄх шь* Їрщыр шёїюфэ√ї фрээ√ї:
шёїюфэ√щ ьрёёшт:
20 30 40 50 60 70 80 90 100
ьрёёшт Ёхчєы№ЄрЄют 1:
5 7 10 12 15 17 20 22 25
ьрёёшт Ёхчєы№ЄрЄют 2:
0 2 0 2 0 2 0 2 0

[Stilet]

Запустил твою программу в паскале и получил это в output.

[pas18]

Сообщение от Stilet

Запустил твою программу в паскале и получил это в output.

блин, у меня все равно ничего не получается...что ж за ерунда то

[Serge_Bliznykov]

что за компилятор? Где расположены файлы (и исходники программы, и получаемый EXE) - какой путь? Может стоит создать папку с путём формата 8.3 и поместить туда?
А ещё возможно поменять компилятор (перейти, например, на FreePascal)

а ещё можно для открываемого файла прописать ПОЛНЫЙ путь!

  assign(f1,'C:\TP7\LABA9.TXT');

а ещё можно привести скриншоты ошибок (если ошибки есть, конечно..)