Срочно программу пожалуйста
дан линейный целочисленный массив размерностью 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] gt; 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.