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

Спасибо))

Не за что, обращайтесь)

var  a: array of integer;  s, i, j: integer;begin  setLength(a, 11);  for i := 0 to 10 do  begin    a[i] := round(random(55));    write(a[i]:6);  end;    writeln(#13, #13, '-=1=-');  for i := 0 to 10 do    if (a[i] mod 2 = 0) then      s := s + a[i];  writeln(s);    writeln(#13, #13, '-=2=-');  s := 0;  for i := 0 to 10 do    if (a[s] > a[i]) then      s := i;  for i := s to 9 do    a[i] := a[i + 1];  setLength(a, 10);  for i := 0 to 9 do    write(a[i]:6);end.