Работа с матрицей(Free Pascal)

[vaLERkAVV]

в матрице mxu заменить все элементы каждого четного столбца полями. распечатать входную и выходную матрицу в форматированном виде

[alex_fcsm]

Каким полем заменять то?

for i:=1 to m do
 begin
  for j:=1 to n do 
   begin
    if (j mod 2 = 0) then a[i,j]:=%поле%;
    write(a[i,j]);
   end;
  writeln;
 end;