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

Uses Crt;
Var x,i,v_max,v_min: Integer;
n:Word;
v: array of Integer;
 
 
 Function max (a:array of integer):integer;
 Var n1,n2,i:Word;
 r:integer;
 Begin
 
 r:=0;
 For i:=1 to high(a) do
 if A[i]>0
  then 
  begin
  r:=r+1;
  if r=2
   then n1:=i+1;
  end;
  
 r:=0; 
 For i:=high(a) downto 1 do
 if A[i]<0
  then 
  begin
  r:=r+1;
  if r=2
   then n2:=i-1;
  end;
 
 if (n1<=n2)
 then
 begin
 r:=A[n1];
 For i:=n1 to n2 do
 If A[i]>r
  then
  r:=A[i];
  Max:=r;
 end;
 End;
 
 
Begin
  
  Randomize;
  
 
  WriteLn;
  Write ('Введите Размерность:');
  Readln (n);
  WriteLn('Задайте диапазон случайных чисел');
  Write('v_min=');
  ReadLn(v_min);
  Write('v_max=');
  ReadLn(v_max);
  Setlength (v,n);
 
  For i:=1 To high(v) Do        {заполнение вектора случайными числами}
    v[i]:=Random(v_max-v_min + 1) + v_min;
  For i:=1 To high(v) Do
   Write(v[i],' ');
   Writeln;
  
  x:=max(v);
  If (x=0)
  then
  Writeln('Таких значений нет.')
  else
  Writeln('Max элемент:',x);
  
End.

uses crt;
 
const
  n = 5;
  r = 3;
 
type
  tarray = array[1..n, 1..n] of integer;
 
var
  j, i, v_max, v_min: Integer;
  v: tarray;
 
 
procedure romb(var a: tarray);
var
  p, i, j: Word;
  temp1, temp2: integer;
begin
  temp2 := a[r, 1];
  a[r, 1] := a[r + 1, 2];
  for p := 1 to r-1 do
  begin
    j := 0;
    for i := r downto 2 do
    begin
      j := j + 1;
      temp1 := a[i - 1, j + 1];
      a[i - 1, j + 1] := temp2;
      temp2 := temp1;
    end;
    j := r - 1;
    for i := 1 to r-1 do
    begin
      j := j + 1;
      temp1 := a[i + 1, j + 1];
      a[i + 1, j + 1] := temp2;
      temp2 := temp1;
    end;
    j := 2 * r;
    for i := r to (2 * r)-2 do
    begin
      j := j - 1;
      temp1 := a[i + 1, j - 1];
      a[i + 1, j - 1] := temp2;
      temp2 := temp1;
    end;
    j := r + 1;
    for i := (2 * r)-1 downto r+1 do
    begin
      j := j - 1;
      temp1 := a[i - 1, j - 1];
      a[i - 1, j - 1] := temp2;
      temp2 := temp1;   
    end;
  end;  
end;
 
 
begin
  
  Randomize;
  
 
  WriteLn;
  WriteLn('Задайте диапазон случайных чисел');
  Write('v_min=');
  ReadLn(v_min);
  Write('v_max=');
  ReadLn(v_max);
  
  for i := 1 to n do
    for j := 1 to n do
      v[i, j] := Random(v_max - v_min + 1) + v_min;     {заполнение вектора  случайными числами}
  
  Writeln('Исходный массив');        {вывод на экран исходного массива}
  for i := 1 to n do
  begin
    for j := 1 to n do
      Write(v[i, j]:2);
    Writeln;
  end;  
  
  romb(v);
  writeln('Преобразованный массив:');
  for i := 1 to n do
  begin
    for j := 1 to n do
      Write(v[i, j]:2);
    Writeln;
  end;  
end.