Помогите с заданием на языке PascalНапишите программу, которая ввод данных в

Var
  A: array [1..12] of integer;
  i: byte;
  min, indexMin: integer;
begin
  i := 1; indexMin := 1;
  while (i lt; 13) do
  begin
    write('A[',i,'] = ');
    readln(A[i]);
    if i = 1 then min := A[1]
    else
    if (A[i] lt; min) then
    begin
      min := A[i];
      indexMin := i;
    end;
    i := i + 1;
  end;
  i := 0;
  repeat
    i := i + 1;
    if (i = indexMin) then
      A[i] := 1;
    write(A[i]:4);
  until (i = 12);
end.