условный оператор + цикл pascal

[kyop]

подскажите кто-нибудь, момент для программы хоть и не сильно важный(можно вырезать) но непонятный, при компиляции выдает ошибку "error 113: error in statement" и указывает на else

...
         for i:= 1 to kolmas do
         begin
              write('массив номер ',i,'[');
              for j:= 1 to razmmas do
              begin
                   p:=razmmas-1;
                   if j = p
                   then
                   write(mat[i][j]:5:2,']');
                   else
                   write(mat[i][j]:5:2,'/');
              end;
         end;
end;
end.

причем без условия все прекрасно работает, может быть, я просто не вижу своей ошибки...

[evg_m]

if j = p
                   then
                   write(mat[i][j]:5:2,']');
                   else

перед else ; не ставится.