Замена числел в матрице паскаль, помогите найти ошибку

[geopgiy]

Здравствуйте! Очень нужна помощь.
Дано задание : в матрице Б заменить числа в четных строках на нечетные числа по порядку ( 1 3 5 7 ...) . Вроде бы написал программу, но идет замена на числа 1 3 5 9!, и одно число при выдаче матрицы не зависит, ввожу ли я его или нет, иногда выпадает рандомно, а именно b[3,2].
Заранее благодарю за помощь.

Program lab04;
Uses wincrt;
VAR B:array[0..2,0..3] of real; x:real; i,j:integer;
BEGIN
 b[1,1]:=5.32; 	b[2,1]:=-3;   	b[3,1]:=1.25;
 b[1,2]:=8;     	b[2,2]:=2;    	b[3,2]:=0;
 b[1,3]:=-4;  	b[2,3]:=0.75; 	b[3,3]:=0;
 b[1,4]:=0;    	b[2,4]:=-6;   	b[3,4]:=1.4;
FOR I:=1 TO 3
   DO 
     Begin
      IF (I mod 2) = 0
        THEN 
             Begin
             x:=1;
             FOR j:=1 TO 4
                 DO 
                    Begin
                    b[i,j]:=x;
                    x:=x+2;
                    End;
             End;
      End;
Writeln('b');
For I:=1 to 3
  Do 
     Begin
     For j:=1 to 4
     Do write(b[i,j],'   ');
     Writeln('');
     End;
END.

P.S. ввод организован не через цикл, чтобы не мучаать себя постоянным набором этой матрицы.

[Aleksandr H.]

и что тебя не устраивает?
att.jpg
массив только с 1 опиши а не с 0

[geopgiy]

Почему-то не хочет так же красиво выдавать.
я поигрался с типом переменных, поменял на byte и вдруг все стало работать нормально...
Спасибо большое)

[Aleksandr H.]

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

Почему-то не хочет так же красиво выдавать.

Program lab04;
Uses crt;
VAR B:array[1..3,1..4] of real; x:real; i,j:integer;
BEGIN
b[1,1]:=5.32; b[2,1]:=-3; b[3,1]:=1.25;
b[1,2]:=8; b[2,2]:=2; b[3,2]:=0;
b[1,3]:=-4; b[2,3]:=0.75; b[3,3]:=0;
b[1,4]:=0; b[2,4]:=-6; b[3,4]:=1.4;
clrscr;
For I:=1 to 3 Do
Begin
 For j:=1 to 4 Do write(b[i,j]:2:2,' ');
 Writeln('');
End;
writeln;
FOR I:=1 TO 3 DO
Begin
 IF (I mod 2) = 0 THEN
 Begin
     x:=1;
     FOR j:=1 TO 4 DO
     Begin
          b[i,j]:=x;
          x:=x+2;
     End;
 End;
End;

Writeln('b');
For I:=1 to 3 Do
Begin
 For j:=1 to 4 Do write(b[i,j]:2:2,' ');
 Writeln('');
End;
readln;
END.