составить блок схему. составить программу на языке паскаль. дан массив в котором все элементы различны. удалить из него минимальный элемент.

Const
    m = 10; 
var
    a: array[1..m] of integer;
    i,j, min: integer;
begin     
write ('Исходный массив: ');   
for i := 1 to m do
  begin
  a[i] := random(100);
  if (i=1) or (a[i]<min) then min:=a[i];
  write (a[i],'; ');
  end;   
writeln; 
for i:=1 to m do
  begin
  if a[i]=min then
    begin
    for j:=i to m-1 do
      a[j]:=a[j+1];
    break;
    end;
  end;
a[m]:=0;
write('Измененный массив: ');  
for i := 1 to m-1 do
         write (a[i],'; ');  
end.