И снова матрицы

type matrix = array [1..10, 1..10] of integer;
arr = array [1..50] of integer;
var m: matrix;
v: arr;
n, k, l: integer;
i, j: integer;
procedure in_matrix (var m: matrix; var n: integer);
  var a, b, p1, p2, i, j: integer;
      ch: char;
  begin
    repeat
     ch:='N';
     Writeln ('Введите размерность матрицы от 2 до 10');
     Readln (n);
     case n of
      2..10: ch:='Y'
      else Writeln ('Неверный ввод! Повторите.');
      Readln;
     end;
    until ch='Y';
       Writeln ('Введите левую границу диапазона компонент');
    Readln (a);
    Writeln ('Введите левую границу диапазона компонент');
    Readln (b);
     if a>b then
       begin p1:=0; p2:=b; b:=p1;
       end
     else if a=b then
          begin p1:=0; p2:=b;
          end
          else if b=0 then
        begin p1:=a; p2:=0
        end
        else
          begin
          p1:=b-a; p2:=a;
          end;
    Randomize;
    For i:=1 To n Do
      For j:=1 To n Do
        m[i,j]:=random(p1+1)+p2;
  end;

q:=0;
for i:=1 to n do
for j:=1 to n do
if odd(j) then
 begin
 q:=q+1;
 v[q]:=m[i,j];
end;

q:=0;
for i:=1 to n do
for j:=1 to n do
if odd(j) = false then
 begin
 q:=q+1;
 v[q]:=m[i,j];
end;