Составить блок схему по данному коду

program Simple2_4;
uses
  CRT;
 
const
  N = 5;
 
type
  Array3N = Array [1..3*N] of Integer;
  ArrayN = Array [1..N] of Real;
 
var
  X: Array3N;
  Y: ArrayN;
  i, j: Integer;
 
begin
  Clrscr;
  Randomize;
  for i := 1 to 3*N do
  begin
    X[i] := -1000 + Random(2000);
    Write(X[i], ' ');
  end;
  Writeln('');
  i := 1;
  j := 1;
  while (i <= 3*N-2)and(j <= N) do
  begin
    Y[j] := (X[i] + X[i+1] + X[i+2]) / 3;
    Write(Y[j]:6:2, ' ');
    j := j + 1;
    i := i + 3;
  end;
  Writeln('');
  Readln;
end.

program Simple_2_5;
uses
  CRT;
 
const
  N = 5;
 
type
  ArrayN = Array [1..N] of Integer;
 
var
  X: ArrayN;
  i, Max, IndexMax: Integer;
 
begin
  Clrscr;
  Randomize;
  for i := 1 to N do
  begin
    X[i] := -1000 + Random(2000);
    Write(X[i], ' ');
  end;
  Writeln('');
  Max := X[1];
  IndexMax := 1;
  for i := 1 to N do
    if X[i] > Max then
    begin
      Max := X[i];
      IndexMax := i;
    end;
  for i := 1 to IndexMax-1 do
    if X[i] < 0 then
      X[i] := 0;
  for i := 1 to N do
    Write(X[i], ' ');
  Writeln('');
  Readln;
end.