Турбо Паскаль

[roolez]

Помогите составить блок схему по программе:
[CODE]
Program Z4;
Const
X=10;
Y=15;
Var
N, M, i, j, max, jmax, min, jmin: integer;
P: array [1..X,1..Y] of integer;
Begin
Write('N=');
Readln(N);
Write('M=');
Readln(M);
For i:=1 To N Do
Begin
For j:=1 To M Do
Begin
Write('P[',i,'][',j,']: '); Readln(P[i,j]);
End;
End;
Writeln('Массив до');
For i:=1 To N Do
Begin
For j:=1 To M Do
Begin
Write(P[i,j],' ');
%

[Stilet]

Достань себе программу FCEditor.
Он умеет строить блок-схемы по коду паскаля.