Блок-схемы

[wedima]

Нужны блок схемы к задачам. Сама изучаю паскаль всего две недели. Задачи- решила. С блок-схемами хуже. Может кто поможет?

Program z11;

var
i,k:integer;
a:array [0..199] of integer;
{создание массива на 200 элементов}
begin
Randomize;
writeln();
writeln('-----------');
For i:=0 to 199 do
begin
a[i] := round(50-random(100));
{заполнение массива значениями от -50 до +50}
write(a[i]:5);
end;

for i:=0 to 199 do begin
for k := 0 to 199 do begin
If (a[i] >0) and (a[i] = -a[k]) then a[k] := 0; {задание зависимости}
end;
end;
{writeln(' Совпадений: ',k);}
writeln();
For i:=0 to 199 do
begin
write(a[i]:5);
end;
writeln();
writeln('-----------');
end.

[wedima]

program z14;
var a:array[1..20,1..20]of integer;
n,i,j,c,sum,k,max,l,p:integer;
begin
randomize;
write('Введите размер матрицы n= ');
readln(n);
Writeln('Matrica:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=1 to n do
if(j=i)and(j<=n-i+1) then{если на главной диагонали и выше побочной или на ней}
begin
sum:=0;
for k:=1 to 2*i-1 do{квадрат с центром с этим элементом}
sum:=sum+a[k,(2*i-k)];{сумма элементов побочной диагонали этого квадрата}
a[i,i]:=sum;{пишем на главную}
end
else if(j=i)and(j>n-i+1)then{если ниже побочной}
begin
sum:=0;
for k:=n downto 2*i-n do{начинаем выбирать квадраты снизу}
sum:=sum+a[k,2*i-k];
a[i,i]:=sum;
end;
writeln('Результат:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln
end.

[wedima]

Program z17;
var
s:string;
i,a,b,c,d:integer;
begin
readln(s);
for i:=1 to length(s) do
begin
if s[i]='(' then inc(a);
if s[i]=')' then inc(b);
end;
if a=b then
writeln('Одинаковое кол-во') else
writeln('Нет');
begin
if s[i]='[' then inc(c);
if s[i]=']' then inc(d);
end;
if c=d then
writeln('Одинаковое кол-во') else
writeln('Нет');
end.