Написать программу и составить для нее блок-схему

Program mas1;
  type mas=array[1..100] of real;
  var                    b,a:mas;
      i,n:integer;
         max:real;
    procedure EZ(ii,nn:integer; x:mas; maximum:real);
      begin
       writeln('введите элементы массива');
          for ii:=1 to nn do
                        readln(x[ii]);
        maximum:=x[1];
      
          for ii:=1 to nn do
                          IF x[ii]>max THEN maximum:=x[ii];
          writeln('исходный массив:');
          for ii:=1 to nn do
                          write(x[ii],' ');
          
          writeln;               
          writeln('максимальный элемент массива - ',maximum);
      end;
begin
   writeln('введите кол-во элементов массива a и b');
   
   readln(n);  
   writeln('----------МАССИВ А----------');
      ez(i,n,a,max); 
   writeln('----------МАССИВ B----------');
      ez(i,n,b,max);
end.

procedure findMax(a : array of Real; var mi : Integer; var mv : Real) := (mi, mv) := (a.IndexMax+1, a.Max);
procedure pre(i : Integer; var a : array of Real);
begin
  for i := i to a.Length-1 do a[i] := 0;
end;
begin
  var n := ReadLnInteger('n =');
  var a := ReadArrReal('Введите значения массива А:', n);
  var b := ReadArrReal('Введите значения массива b:', n);
  var maxindex : Integer;
  var maxvalue : Real;
  findMax(a, maxindex, maxvalue); WriteLnFormat('Максимальный элемент A[{0}] = {1}', maxindex, maxvalue);
  pre(maxindex, a); a.Println;
  findMax(b, maxindex, maxvalue); WriteLnFormat('Максимальный элемент B[{0}] = {1}', maxindex, maxvalue);
  pre(maxindex, b); b.Println;
end.