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

program proced;

var i,N:integer;

A:array [1..255] of integer; B:array [1..255] of integer; C:array [1..255] of real;

procedure fun(x :integer);

var g:integer;

begin

for g:=1 to N do

begin

A[g]:=random(91)-43;

write(a[g]:7,'');

end;

writeln;

for g:=1 to N do

begin

B[g]:=random(88)-36;

write(B[g]:7,'');

end;

writeln;

end;

begin

write('Введите кол-во элементов массива N = ');

read(N);

fun(1);

for i:=1 to N do

begin

C[i]:=(A[i] + B[i]) / 2;

write(C[i]:7:1);

end;

end.