Пожалуйста помогите построить блок-схемы

Задача №1.
uses crt;
const n=50;
type
Arr = array[1..n] of integer;
var
a : Arr;
b : boolean;
c : Integer;
i : Byte;

Begin
randomize;
writeln('Исходная :');
for i:=1 to n do begin
a[i]:=random(10)-5;
write(a[i]:4);
end;
writeln;

for i:=1 to n do if a[i]<0 then a[i]:=-a[i];
writeln('После изменения знака :');
for i:=1 to n do write(a[i]:4); writeln;

repeat
b:=true;
for i:=1 to n-1 do if a[i]<a[i+1] then begin
c:=a[i];
a[i]:=a[i+1];
a[i+1]:=c;
b:=false;
end;
until b;
writeln('После сортировки :');
for i:=1 to n do write(a[i]:4); writeln;
readln;
End.

Задача №2.
Program R11;
uses Crt;
Var
A,B,C:array [1..10,1..10] of integer;
k,m,n:byte;
I,J,X: integer;
Begin
ClrScr;
Write('Введите размерности массивa A (k m) ');
readln(k,m);
write('Введите кол-во столбцов в массиве В ');
readln(n);
randomize;
{if m<>n then writeln('Введены не корректные данные')
else begin }
for i:=1 to k do {Массив А}
for j:=1 to m do
A[i,j]:=random(3);
writeln;
writeln('Массив A ');
for i:=1 to k do begin
for j:=1 to m do
write(A[i,j]:4);
writeln;
end;
writeln; {конец А}
for i:=1 to m do {Массив B}
for j:=1 to n do
B[i,j]:=random(3);
writeln('Массив B ');
writeln;
for i:=1 to m do
begin
for j:=1 to n do
write(B[i,j]:4);
writeln;
end;
writeln; {конец В}
for I:=1 to k do {решение}
for J:=1 to n do
begin
C[I,J]:=0;
for X:=1 to n do
C[I,J]:=C[I,J]+A[I,X]*B[X,J];
end;
writeln('Ответ'); {вывод ответа}
for i:=1 to k do
begin
writeln;
For J:=1 to n do
write (C[I,J]:10)
end;
{end; }
end.

0

Есть куча программ в интернете строящая блок схемы по коду.... )))

1