Помогите найти ошибку

Вроде (вроде!) все правильно, а результат указанного ниже кода не тот что должен был быть.

. . .
begin
writeln('Введите количество обрабатываемых плоскостей:');
read(p);
k:=0;
for j:= 2 to p+1 do
begin
k:=k+1;
writeln('Введите точность и шероховатость ',k,' базовой поверхности');
writeln('7 - 10-12 kv, 20<=Rz<=12,5');
writeln('8 - 8,9 kv, 12,5<=Rz<=6,3');
writeln('9 - 7,8 kv, 6,5<=Rz<=3,2');
read(b);
if b=7 then a[1,j]:=1;
if b=8 then a[2,j]:=1;
if b=9 then a[3,j]:=1;
end;
end;
. . .
. . .
d[1,j]:='ФРЕЗЕРНАЯ'+#13#10+'Фрезеровать базовую поверхность начерно'+#13#10+
'Оборудование: станок вертикально-фрезерный, Инструмент: фреза торцовая';
d[2,j]:='ФРЕЗЕРНАЯ'+#13#10+'Фрезеровать базовую поверхность начерно, начисто'+#13#10+
'Оборудование: станок вертикально-фрезерный, Инструмент: фреза торцовая';
d[3,j]:='ФРЕЗЕРНАЯ'+#13#10+'Фрезеровать базовую поверхность начерно, начисто, тонко'+#13#10+
'Оборудование: станок вертикально-фрезерный, Инструмент: фреза торцовая';
. . .
. . .
write(d[i,j]);
writeln;
begin
assign(f,'Resultat.txt');
rewrite(f);
end;
for j:=1 to 17 do
for i:=1 to 6 do
if a[i,j]=1 then
writeln(f,d[i,j]);
close(f);
end;
. . .
Вот при такой записи имею при выводе результата программы на одну запись больше чем вводил – допустим вводил обрабатывать 3 плоскости, а в результате обрабатываю 4. Хрен знает каким макаром прога добавляет одну запись сама.
Р.S.: Возможно этих данных недостаточно чтоб определить ошибку, я не знаю.

0