Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапозоне от 0 до 10 и находит сумму минимального и максимального элементов массива. Помогите пожалуйста, составьте программу, 9 класс

Var
  a: array [1..10] of integer;
  i, d, c: integer;
 
begind:=0;
c:=0;
for i:=1 to 10 do
  begin
    a[i]:= random(11);
    Writeln(a[, i,]= , a[i]);
  end;   for i:= 2 to 10 do
    begin
      if (a[i]lt;a[i-1]) and (a[i]lt;d) then d:=a[i];
      if (a[i] gt; a[i-1]) and (a[i] gt; c) then c:=a[i]
    end;
 
Writeln(Наибольший элемент массива = , c);
Writeln(Наименьший элемент массива = , d);

end.