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

[alex2008ean]

Добрый день!
кое как сделал программу, но она не совсем правильно работает. Сколько не ломал голову, но найти ошибку не могу.
Ниже будет представлен проблемный (на мой взгляд) код.
В чем сама проблема: при вводе n-го количества базовых поверхностей выводит результат n+1 поверхностей, т.е. хрен знает откуда прибавляет еще одну. пример - ввожу 2 поверхности на обработку, а выдает обработку 3-х.

Проблемный код:
. . . . . .
begin
writeln('VVedite kolichestvo obrobativaemih ploskostei:');
read(p);
k:=0;
s:=p+1;
for j:= 2 to s do
begin
k:=k+1;
writeln('VVedite tochnost i sherohovatost ',k,' bazovoi poverhnosti');
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);
begin
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;
end;
. . . . . .


P.S.: В ответе ниже представлена сама программа целиком и описание ее работы

[alex2008ean]

Как работает программа:
сначала формирую нулевой массив a[i,j]:=0, т.е. все елементы нули.
Пример:
0 0 0 0 0 ...
0 0 0 0 0 ...
0 0 0 0 0 ...
................
Потом путем ввода предлагаемых значений параметров (вводяться в верхней части программы) некоторые елементы массива a[i,j] принимают значения 1.
Пример:
0 1 0 0 1 ...
1 0 0 1 0 ...
0 0 0 0 0 ...

Потом формируем массив d[i,j], где елементы масива - текстовые строки. Это нижняя часть программы. Масив d[i,j] такой же размерности что и массив a[i,j].

Сама суть: при значении елемента a[i,j]=1 в файл должна записываться текстовая строка, соответствующая аналогичному елементу массива d[i,j].
Пример: если a[1,2]=1, значит в файл должна записываться строка, соответствующая елементу d[1,2]