Блок схема по программе в среде Turbo Pascal.

[Ekvental]

Надо разработать блок-схему по программе.

Program name;
uses crt;
Var
x: Array [1..100] of Integer;
y: Array [1..100,1..100] of Integer;
N,i,j,a,k,m,error : Integer;
Ch: char;
Label L1, L2;
Begin
clrscr;
textattr:=white;
gotoxy (20, 6);
writeln ('');
gotoxy (20, 7);
writeln ('');
gotoxy (20, 8);
writeln ('');
textattr:= green;
gotoxy (35, 10);
writeln ('');
gotoxy (20, 12);
textattr:= red;
writeln ('');
gotoxy (40, 17);
textattr:= white;
writeln ('');
gotoxy (40, 18);
writeln ('');
gotoxy (40, 20);
writeln ('');
gotoxy (40, 21);
writeln ('');
gotoxy (20, 23);
writeln ('');
ch:= readkey;
L1: clrscr;
    Write('n=');
Read(n);
Writeln ('');
For i:=1 to n do

	begin
	repeat
	Write('x[',i,']=');
	{$i-}
	Read(x[i]);
	Error:=IOResult;
	{$i+}
	if (n<1) or (n>100) or (Error<>0) then
			       textattr:=red;
			       until(n>=1) and (n<=100) and (error=0);
	end;
Write ('');
Read(a);
m:=n div a;
If m<(n/a) then
	m:=m+1;
For i:=1 to m do
	For j:=1 to a do
		begin
		k:=(i-1)*a+j;
		If k<=n then
			y[i,j]:=x[k]
		else
			y[i,j]:=0;
		end;
Writeln ('');
For i:=1 to m do
	begin
	For j:=1 to a do
		Write(y[i,j]:8);
	Writeln;
	end;
L2:
    case readkey of
     #89: goto L1;
     #121:goto L1;
     #78:exit;
     #110:exit;
     end;
goto L2;
end.