Блок-схема

[Aлена]

Помогите составить блок-схему по программному коду , или подскажите хороший сайт онлайн- конструктор
Uses Crt;
type
Sq = array [1..50, 1..50] of integer;

var
A: Sq;
n, i, j, R1, R2: integer;

procedure Testing(X: Sq; m, l, k: integer; var S: integer);
label Result;
var
i, j, l1, k1, p: integer;
begin
k1 := l;
l1 := k;
i := 1;
j := 1;
repeat
for p := 1 to m do
begin
if l = 1 then i := 1;
if k = 1 then j := 1;
S := 0;
repeat
if X[i, j] = p then S := 1;
i := i + l;
j := j + k;
until (i = m + 1) or (j = m + 1);
if S = 0 then goto Result;
end;
i := i + l1;
j := j + k1;
until (i = m + 1) or (j = m + 1);
S := 1;
Result:
end;

begin
clrscr;
Writeln('введите порядок квадрата (не больше 50)');
Readln(n);
for i := 1 to n do
begin
Writeln('введите по очереди элементы строки N ', i);
for j := 1 to n do Readln(A[i, j]);
end;
clrscr;
for i := 1 to n do
begin
for j := 1 to n do
Write('|', A[i, j]:7);
Writeln('|');
end;
Testing(A, n, 0, 1, R1);
Testing(A, n, 1, 0, R2);
if (R1 = 1) and (R2 = 1) then Writeln('Матрица - латинский квадрат')
Else Writeln('Матрица не является латинским квадратом');
Readln;
end.

[Alex11223]

Вы не перепутали "помогите" и "сделайте за меня"?

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.