Привет всем. Нужна ваша помощь нужно сделать блок-схему по программе:

[email protected] в категроии Информатика, вопрос открыт 10.06.2017 в 22:43

const
size = 6;

type
matrix = array [1..size, 1..size] of integer;

var
b: matrix;
i, j: integer;

procedure PrintMatrix(x: matrix; _size: integer);
var
i, j: integer;
begin
for i := 1 to _size do
begin
for j := 1 to _size do
Write(x[i, j]:4);
WriteLn
end
end;

begin
Randomize;
for i := 1 to size do
for j := 1 to size do
b[i, j] := Random(131) - 65;
WriteLn('Исходная матрица:');
PrintMatrix(b, size);
for i := 1 to size do
if i mod 2 = 0 then
begin
WriteLn('Замена значений ', i, '-й строки матрицы на число 100:');
for j := 1 to size do
b[i, j] := 100;
PrintMatrix(b, size)
end;
WriteLn('Программа завершена. Нажмите Enter...');
ReadLn
end.

Прошу помочь