Задача по информатике Pascal ABC

Нужно составить блок схему по программе для массива.

program ZamenaElementov;

uses crt;

const
N = 9; // Размер массива

var
C: array[1..N] of integer = (2, 4, -3, 0, 2, 4, 1, 10, 5);
D: array[1..N] of integer;
i: integer;

begin
clrscr; // Очистка экрана

// Замена элементов и вывод массива D
writeln('Массив D[i]');
for i := 1 to N do
begin
if C[i] < 2 then
D[i] := 0
else
D[i] := C[i];
write(D[i]);
end;
end.