Пожалуйста помогите составить блок-схему по коду
Program massiv;
Var a: array[1..100] of real;
mas:array[1..10] of Integer;
i, n: integer;
max, rowmax: real;
Begin
Write ('n='); Readln (n);
For i:=1 to n do
begin
write('a[',i,']='); readln (a[i]);
end;
max:=mas[1];
rowmax :=1;
For i:=2 to n do
begin
If a[i]> max then
begin
max:=a[i];
rowmax:=i;
end;
end;
Writeln('Наибольшее число:',max);
Writeln('является ',rowmax, '-м членом последовательности');
Readln;
End.