Составьте программу, которая заполняет массив 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]<a[i-1]) and (a[i]<d) then d:=a[i];      if (a[i] > a[i-1]) and (a[i] > c) then c:=a[i]    end;  Writeln('Наибольший элемент массива = ', c);Writeln('Наименьший элемент массива = ', d);end.