Помогите с блок-схемой

[Katara]

Помогите с блок-схемой

Помогите составить блок-схему для программы:
Условие:Сжать массив чисел а длиной n, удалив при этом каждый k-нный элемент.
Программа:

CONST
 N=10;
VAR
 A,B:ARRAY[1..N] of Integer;
 k,M:Byte;
 i:Integer;
BEGIN
 For i:=1 to N do
  begin
   Write('A[',i:2,']= ');
   ReadLn(A[i]);
  end;
 Write('k= ');
 ReadLn(k);
 M:=0;
 For i:=1 to N do
  begin
   Write(A[i]:5);
   If (i mod k)>0 then
    begin
     Inc(M);
     B[M]:=A[i];
    end;
  end;
 WriteLn;
 For i:=1 to M do Write(B[i]:5);
 ReadLn;
END.

 

[Svetlanka]

вот..)