Срочно программу пожалуйста дан линейный целочисленный массив размерностью 5. отсортировать элементы массива по возрастанию и найти сумму и произведение элементов массива

Сортировка пузырьком var   a: array[1..5] of integer;   i, j, t, s, p: integer; begin   for i:=1 to 5 do      readln(a[i]);   for i:=1 to 4 do      for j:=1 to 4 do         if a[j] > a[j+1] then begin             t:=a[j];             a[j] := a[j+1];             a[j+1] := t;         end;   for i:=1 to 5 do     write(a[i], ' ');   writeln;   s:=0; p:=1;   for i:=1 to 5 do  begin      s:=s+a[i];      p:=p*a[i];   end;   writeln(s, ' ', p); end.