Блок схема

Помогите с блок схемами плиз
Вот сами программы:
1)
type matrix= array [1..20] of integer;
var x,y:matrix;
i:integer;
procedure proc(var x,y:matrix);
var i,k:integer;
begin
k:=-10;
for i:=1 to 20 do
begin
if x[i]>k then
k:=x[i];
end;
for i:=1 to 20 do
begin
if x[i]<(k/2) then
y[i]:=sqr(x[i])
else y[i]:=0
end;
end;
begin
randomize;
for i:=1 to 20 do
begin
x[i]:=random(18)-9;
write(x[i]:3);
end;
writeln;
proc(x,y);
for i:=1 to 20 do
write(y[i] :3);
end.
2)
var a,b,c:array [1..4]of integer;
t:real;
i,e:integer;
function maxs(var a:array [1..4]of integer):integer;
var max,i:integer;
begin
max:=a[1];
for i:=1 to 4 do
if a[i]>max then begin
max:=a[i];
e := i; end;
max := e;
end;
function mins(var a:array [1..4]of integer):integer;
var min,i:integer;
begin
min:=a[1];
for i:=1 to 4 do
begin
if a[i]>min then begin
min:=a[i];
e := i; end;
end;
min:= e;
end;
begin
begin
randomize;
for i:=1 to 4 do begin
a[i]:=random(10);
write(a[i]:3);
end;
end;
begin
randomize;
for i:=1 to 4 do begin
b[i]:=random(10);
write(b[i]:3);
end;
end;
begin
randomize;
for i:=1 to 4 do begin
c[i]:=random(10);
write(c[i]:3);
end;
end;
if mins(a)+mins(c)>maxs(b)then
t:=mins(b)+mins(c)/(maxs(a)+maxs(c))
else t:=1/(maxs(b)+mins(b));
writeln('t=',t);
end.

блок схема к первой задаче

Миниатюры

 

1