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

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.