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

Question

procedure ReadKeyBoard; 
var 
 i,j: integer; 
begin 
 clrscr; 
 Writeln; 
 writeln('Исходная система '); 
 
 FOR i := 1 TO N DO 
 begin 
 FOR j := 1 TO N DO 
 begin 
 write('a[',i,' ',j,'] = '); {приглашение к вводу} 
Readln(aa[i,j]); {ввод} 
 end; 
 write('b[',i,'] = '); {приглашение к вводу} 
 Readln(bb); {ввод} 
 end; 
end; 
заранее спасибо!

Наталья Максименко · Accepted Answer

а зачем тебе блок-схема заведомо не рабочей программы? 
N не проинициализировано и не определено (и не введено) , хотя это размерность массива 
массив aa не объявлен, а переменная bb вообще фиг знает зачем введена, если она переписыватся на вводе каждой строки массива aa... 
бред а не прога