Помогите с задачкой на массив плис!

[J_o_h_n_]

Задан массив С(10) из элементов вещественного типа . Сдвинуть элементы циклически на одну позицию влево .Найти минимальный элемент массива и его номер. Выдать на печать сдвинутый массив ,минимальный элемент и его номер

[Stilet]

Например так:

var a:array[1..10] of real;cnt,i:integer;
begin
 i:=1; while (i<=10) do begin a[i]:=random(100)/56; write(a[i]:5:2);inc(i); end;
 cnt:=3;   {На сколько сдвигать}
 move(a[cnt],a[1],(10-cnt)*sizeof(a[1])); {Сдвигаем}
 writeln;
 i:=1; while (i<=10) do begin write(a[i]:5:2);inc(i); end;

 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[J_o_h_n_]

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