Массив, палиндромы.Pascal

[Bullet810]

Друзья, помогите решить задачку, вот условие
Создать массив пятизначных нечетных симметричных чисел,(пример 34543 или 70507), вывести в 4 колонки элементы массива.
Элементы четных колонок выводить в круглых скобках

[Bullet810]

Неужели никто не знает? =)

[Bullet810]

хотябы идейку подкиньте, пожалуйста..

с выводом я разберусь, а вот с массивом как быть

[p51x]

пробежаться по "пятизначных нечетных", проверить симметрию - в лоб, не?

[veniside]

const
  N = 100;
  D = 5;

var
  A: array[1..N] of integer;
  i, j: integer;
  v: string;
begin
  Randomize();
  SetLength(v, D);
  for i := 1 to N do begin
    //
    for j := 1 to D shr 1 + 1 do begin
      //
      if (1 = j) then
        v[j] := char( ord('1') + random(9) )
      else
        v[j] := char( ord('0') + random(10) );
      //
      v[D - j + 1] := v[j];
    end;
    //
    A[i] := StrToInt(v);
  end;
end;