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

program pr;
var C : array [0..9] of real;
    i, id_min : integer;
    tmp, min : real;
begin
tmp := C[0];
for i:=1 to 9 do
  C[i-1] := C[i];
C[9] := tmp;
 
min := C[0];
writeln('Массив:');
for i:=0 to 9 do begin
  write(C[i], '  ');
  if (C[i]<min) then begin
    min := C[i];
    id_min := i;
  end;
end;
write('Минимальный элемент: ', min, #13#10, 'Его номер: ', id_min);
readln;
end.