Как сделать матрицу в делфи??

[amki6]

Дана матрица размером n*m, заполненная случайным образом:
1.Заменить нечетный элемент каждой строки его квадратом.

Помогите написать код программы. В первый раз столкнулась с этим, и совершенно не знаю что делать.

[xoodoo]

var matrix: array[1..m, 1..n];
...
c := 1;
while c <= n do begin
  for r := 1 to m do matrix[r,c] := matrix[r,c] * matrix[r,c];
  Inc(c, 2);
end;