Народ Help!!! помогите с массивами!

[Knot{]

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

[Hollander]

Какие наработки есть?? Если нету, то тебе в раздел Фриланс

[IT-man]

var i,imin:integer;
    min,tmp:real;
	c:array[1..10] of real;
begin
{ввод массива делайте сами }
{ну и вывод исходного тоже }	
tmp:=c[1];
for i:=2 to 10 do
c[i-1]:=c[i];
c[10]:=tmp;
min:=c[1];imin:=1;
for i := 2 to 10 do
if c[i]<min then begin min:=c[i];imin:=i;end;
writeln('sdvinut massiv:')
for i:= 1 to 10 
 write(c[i]:6:3);
writeln('index min elementa:',imin:3,'minimum=',min:6:3);
readln;
end

.

[Knot{]

Мож пояснить что есть Tmp?