Нечетные строки таблицы заменить на вектор X - Pascal ABC

type
    TVector = Array[Byte] Of ShortInt;
var
    ar: Array[Byte] Of TVector;
    i, j, n, m: Byte;
    x: TVector;
begin
    Randomize;
    repeat
        Write('Введите количество строк (1..255): ');
        ReadLn(n);
    until (n > 0);
    repeat
        Write('Введите количество столбцов (1..255): ');
        ReadLn(m);
    until (m > 0);
    WriteLn('Сгенерированный массив:');
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
        end;
        WriteLn;
    end;
    WriteLn;
    Write('Сгенерированный вектор X:');
    for j := 0 to m - 1 do
    begin
        x[j] := Random(199) - 99;
        Write(x[j]:4);
    end;
    WriteLn;
    WriteLn;
    WriteLn('Массив после замены строк:');
    for i := 0 to n - 1 do
    begin
        if (Not Odd(i))
        then
            ar[i] := x;
        for j := 0 to m - 1 do
            Write(ar[i, j]:4);
        WriteLn;
    end;
end.