Дан массив b(n). удалить из него минимальный элемент и сдвинуть все оставшиеся элементы на одну позицию влево

Var ar:array[1..10] of integer;
min,mini,i:integer;
begin
 randomize;
 min:=2147483647;
  writeln('Array:');
   for i:=1 to 10 do
    begin;
     ar[i]:=random(100);
      write(ar[i]:4);
       if ar[i]<min then
        begin;
         min:=ar[i];
         mini:=i;
        end;
     end;
 for i:=mini to 9 do
 ar[i]:=ar[i+1];
writeln;
writeln('Final array:');
 for i:=1 to 9 do
  write(ar[i]:4);
end.