Составить блок-схему программы

[meatq]

Кому не сложно,помогите составить блок-схему.а то не уверен,в том что она у меня получилась правильная.

sub.main()
Dim n,m,I,j,max as integer
N=val(console.readline())
M=val(console.readline())
Dim x(m,n) as integer
Dim y(n,m) as integer
For I=1 to m
For j=1 to m
Console.writeline("x{0}={1}"),I,j)
Console.writeline("y{0}={1}"),I,j)
X(I,j)=val(console.readline())
Y(I,j)=val(console.readline())
Next j
Next I
For I=1 to n
For j=1 to m
If x(I,j)>max then max>x(I,j)
If y(I,j)>max then max>y(I,j)
Next j
Next I
Console.writeline("max=({0})",max)
Console.readline()
End.sub

[koljsch]

А покажите, что у Вас получилось и мы уже скажем, что возможно не правильно.

[meatq]

http://5.firepic.org/5/images/2013-0...hcyul32s5y.jpg

В школе Инфы не было,а в универе сразу начали писать консольных программы.поэтому и не могу сообразить как их строить

[koljsch]

с циклами в самом начале уже не то

[meatq]

Печально.а что именно там не так?