Блок схемы по готовым (сложные проги)программам (срочно)

program pl;
type arr=array[1..20] of integer;
procedure vvod(n:byte;var a:arr);
var i: byte;
begin
for i:=1 to n do
a[i]:=-10+random(20)
end;
procedure vivod(n:byte;const a:arr);
var i:byte;
begin
for i:=1 to n do
write(a[i]:4);
writeln
end;
procedure poisk(n:byte;const a:arr;x:integer;var p:byte);
var i:byte;
begin
i:=1;p:=0;
while(i<=n)and(p=0)do begin
if a[i]=x then p:=i;
i:=i+1
end;
end;
var a:arr;x:integer;n,p:byte;
begin
randomize;
write('n?');readln(n);
vvod(n,a);
vivod(n,a);
write('hto ihem?');readln(x);
poisk(n,a,x,p);
if p=0 then writeln('no lement')
else writeln('nomer lement:',p)
end.
 
 
 
2)program pl;
uses crt;
const n=5;m=5;
var a:array [1..n,1..m] of integer;
i,j,k,temp:integer;
begin
clrscr;
writeln('ishodna matri:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(8)-4;
write(a[i,j]:2,'')
end;
writeln
end;
for i:=1 to n do
for j:=1 to m-1 do
for k:=j+1 to m do
if a[i,j]>a[i,k] then
begin
temp:=a[i,j];
a[i,j]:=a[i,k];
a[i,k]:=temp
end;
writeln('polyhinaia matri:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:2,'');
writeln
end;
end.
 
3)program pl;
var i,j,n,m,i1,j1:byte;
A:array[1..100,1..100] of real;
maxmod:real;
begin
randomize;
writeln('vvedite N:');
readln(n);
for i:=1 to n do
for j:=1 to n do
A[i,j]:=-100+random(200);
maxmod:=abs(A[1,1]);
i1:=1;
j1:=1;
for i:=1 to n do
for j:=1 to n do
if abs(A[i,j])>maxmod then
begin
maxmod:=abs(A[i,j]);
i1:=i;
j1:=j;
end;
writeln('ishodnai matri:');
for i:=1 to n do
begin
for j:=1 to n do write(A[i,j]:6:1);
writeln;
end;
writeln('max po modyly ilement A[',i1,';',j1,']=',A[i1,j1]:6:1);
for i:=1 to n do
if(i<>i1) then
begin
for j:=1 to n do
if(j<>j1) then write(A[i,j]:6:1);
writeln;
end;
readln;
end.