Нужна блок-схема нарисованная.

var
i, j, n, min: integer;
v: array[1..8]of integer;
p: array[1..8]of integer;
s: array[1..8]of integer;
begin
min : = 999;
for i : = 1 to 8 do read(v[i]);
for i : = 1 to 8 do read(p[i]);
for i : = 1 to 8 do read(s[i]);
for i : = 1 to 8 do if(p[i] = 0) and (s[i] = 1) and (v[i] < min) then min : = v[i];
write(min);
end.

program massiv_zamena_min_max;
uses crt;
var massiv: array [1..100,1..100] of integer;
i,j,mr,mc,min, max, minj, maxj, tmp:integer;
begin
clrscr;
mr:=101;
mc:=101;
while ((mrgt;100)or(mrlt;0)or(mcgt;100)or(mclt;0)) do
begin
writeln(Vvedite razmernost massiva (ne bolee chem 100x100):);
readln(mr);
readln(mc);
end;
for i:=1 to mr do
for j:=1 to mc do
begin
writeln(Vvedite element massiva nomer ,(i-1)*mc+j,:);
readln(massiv[i,j]);
end;

writeln(Massiv do izmeneniya:);
for i:=1 to mr do
begin
for j:=1 to mc do write(massiv[i,j], );
writeln;
end;

min:=massiv[1,1];
minj:=1;
for i:=1 to mr do
for j:=1 to mc do
if massiv[i,j]begin
min:=massiv[i,j];
minj:=j;
end;

max:=massiv[1,1];
maxj:=1;
for i:=1 to mr do
for j:=1 to mc do
if massiv[i,j]gt;max then
begin
maX:=massiv[i,j];
maxj:=j;
end;

for i:=1 to mr do
begin
tmp:=massiv[i,minj];
massiv[i,minj]:=massiv[i,maxj];
massiv[i,maxj]:=tmp;
end;

writeln(Nomer ctolbca s minimalnym elementom: ,minj);
writeln(Nomer ctolbca s maximalnym elementom: ,maxj);

writeln(Massiv posle izmeneniya:);
for i:=1 to mr do
begin
for j:=1 to mc do write(massiv[i,j], );
writeln;
end;

readln;
end. Это решение