Помогите с Блок Схемами.

[mela]

Надо составить блох схемы вот к этим программам;
1 программа:
program Massivi8_1;
uses crt;
var n,k,i,j: integer;
a: array[1..20,1..20] of integer;
b: array[1..20] of integer;
im: array[1..20] of integer;
jm: array[1..20] of integer;
max,min,imax: integer;
begin
clrscr;
randomize;
repeat
write('Введите количество строк: '); readln(n);
if (n<=0) or (n>20) then
writeln('Недопустимое значение. Количество строк должно быть от 1 до 20.');
writeln;
until (n>0) and (n<=20);
repeat
write('Введите количество столбцов: '); readln(k);
if (k<=0) or (k>20) then
writeln('Недопустимое значение. Количество строк должно быть от 1 до 20.');
writeln;
until (k>0) and (k<=20);
writeln('Сгенерирован массив: '); writeln;
for i:=1 to n do
begin
for j:=1 to k do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end; writeln;
end; writeln;
writeln('Для получения результата нажмите Enter'); writeln; readln;
for i:=1 to n do
begin
Min:=a[i,1];
for j:=1 to k do
if min>=a[i,j] then
Begin
Min:=a[i,j];
im[i]:=i;
jm[i]:=j;
b[i]:=Min;
end;
writeln('Наименьшее значение в ',i,'-ой строке: ',Min);
end; writeln;
Max:=b[1];
For i:=1 to n do
if max<=b[i] then
Begin
Max:=b[i];
imax:=i;
end;
writeln('Наибольшее число среди полученных елементов: ',Max, ' с индексом [', im[imax],',',jm[imax],']');
readln;
end.


2 программа:

Program laba2;
Var
n,max,i: integer;
a: array[1..10000] of integer;
Begin
Randomize;
Writeln('Vvedite kol-vo 4isel'); Readln(n);
for i:=1 to n do
begin
a[i]:=random(10000);
write('',a[i]);
end;
Writeln;
for i:=1 to n do
begin
if (imod 2>0) and (a[i]mod 2=0) then
begin
if max<a[i] then
max:=a[i];
end;
end;
if max=0 then writeln('max 4islo ravno 0 ili na ne4etnih mestah net 4etnih 4isel')
else writeln('max 4islo ravno',max:6);
Readln;
End.