Помогите пожалуйста составить программу и блок-схему (какой-либо один из трех вариантов)

10)

module N169668608;
import
  System,
  System.Console as con,
  System.Math as Math;

const
  N = 4;
type
  TVector = array 4 of real{64};
var
  A, B, A1, B1: TVector;
  rnd: System.Random;
  i: cardinal{8};
  S: real{64};

procedure WriteVector(a: TVector);
var
  i: cardinal{8};
begin
  for i := 1 to N do
    con.Write("{0, 8:F4}", a[i - 1]);
  end;
  con.WriteLine;
end WriteVector;

begin
  rnd := new System.Random();
  for i := 1 to N do
    A[i - 1] := rnd.NextDouble() * 10 - 5;
    B[i - 1] := (1.0 - (i mod 2 * 2)) * Math.Log(i + 1.5);
  end;
  con.Write(" A = ");
  WriteVector(A);
  con.Write(" B = ");
  WriteVector(B);
  A1 := A;
  System.Array.Sort(A1);
  System.Array.Reverse(A1);
  B1 := B;
  System.Array.Sort(B1);
  System.Array.Reverse(B1);
  con.Write("A1 = ");
  WriteVector(A1);
  con.Write("B1 = ");
  WriteVector(B1);
  S := A1[0] + B1[0];
  con.WriteLine(" S = {0, 8:F4}", S);
  con.WriteLine;
  con.Write("Для завершения работы нажмите любую клавишу... ");
  con.ReadKey;
end N169668608.

А где ваши наработки? Это уже не помощь, а полное выполнение. Вы учитесь то, а не мы.