Поиск минимального элемента в перевернутом массиве

[Niro]

Держите ...

uses CRT;
var
  a,b:array[1..10] of integer;
  i,n,k,min,ind: integer;
begin
  clrscr;
  writeln('введите размерность массива');
  readln(n);
  writeln('введите элементы массива');
   for i:=1 to n do
      readln(a[i]);
  clrscr; 
  writeln('исходный массив');
  for i:=1 to n do
     write(a[i],' ');
  readln;
  writeln('перевернутый массив');
  for i:=n downto 1 do
   begin
      k:=k+1;
      b[k]:=a[i];
      write(b[k],' '); 
   end;
   min:=b[1];
   for i:=1 to n do
     if b[i]<min then begin min:=b[i]; 
                                  ind:=i; 
                          end;
  Writeln('Минимальный элемент массива: ',min);
  Writeln('Индекс минимального элемента: ',ind);
end.

[Kovax]

Спасибо большое