Работа с массивом

[program123]

Добрый день. Есть одномерный массив [1..5] элементы его 13,14,15,16,17 нужно заменить единицы двойками, не пойму как сделать, помогите плз

[Dzmitry Loktseu]

procedure TForm4.Button1Click(Sender: TObject);
var
  A: array [1..5] of Integer;
  Curr: string;
  I: Integer;
begin
  for I := 1 to 5 do
    A[I] := 12 + I;
  for I := 1 to 5 do
  begin
    Curr := StringReplace(IntToStr(A[I]), '1', '2', [rfReplaceAll]);
    A[I] := StrToInt(Curr);
  end;
end;

[program123]

в паскале нужно( и еще допустим может быть элемент 311, и из него должен получиться 322, т.е единицы двойками заменяются например 31, 11, 211,51,17 должно получиться 32, 22, 222, 52, 27