Помогите сделать блок схему!

[Лёха]

Помогите пожалуйста сделать блок схему к задачке в Паскале! Условие задачи: В двухмерном массиве поменять местами столбцы с максимальным и минимальным элементами.

Вот решение задачи:

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 ((mr>100)or(mr<0)or(mc>100)or(mc<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]<min then
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]>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.

Если есть добрые люди, Помогите пожалуйста, очень срочно надо!!!

[madmot]

Существует такая замечательная прога как АВТОСХЕМА (есть исходники). Пользуюсь ей немного подчищая свой исходный код (чтобы схема получилась поменьше). Ее автору Дмитрию Олеговичу огромный РЕСПЕКТ.
ссылка: http://www.dmitriyo.narod.ru/

[Лёха]

я вообще непонимаю как их делать, для меня даже отредактировать сложно.

Помогите, а то я без неё сгорю, т.е. без блок схемы!!! Пожалуйста

[kommunist]

Вот блок схема к твоей программе

[Анастасия Н]

Кто-нибудь!Пожалуйста, можете сделать блок-схему!Очень срочно!
Program FirstScreen(kord:br; btnstr:bstr);
uses Graph, WinCrt,WinMouse;

var

i,len,j,l :byte;
n :string;

a :array[1..max] of byte;
k :longint;
proverka,asc,MousePresent :boolean;
st,ign,str,chr :string;
brKord :br;
grDriver,grMode,grError,m,activeEdi t,numberScreen :integer;
x,y,b :longint;
buttonstr :bstr;

i: integer;
begin

for i:=1 to 7 do
begin
SetFillStyle(1,Kord[i][5]);
if(i=1) then
BEGIN
SetColor(green);
SetTextStyle(DefaultFont,HorizDir,1 );
outTextXY(Kord[i][1],kord[i][2]-10,'Iz');
end;
if(i=2) then
BEGIN
SetColor(green);
SetTextStyle(DefaultFont,HorizDir,1 );
outTextXY(Kord[i][1],kord[i][2]-10,'Chislo');
end;
if(i=3) then
BEGIN
SetColor(green);
SetTextStyle(DefaultFont,HorizDir,1 );
outTextXY(Kord[i][1],kord[i][2]-10,'V');
end;
bar(Kord[i][1],Kord[i][2],Kord[i][3],Kord[i][4]);
SetTextStyle(DefaultFont,HorizDir,K ord[i][6]);
if btnstr[i]<>'' then
begin

SetColor(black);
outTextXY(Kord[i][7],kord[i][8],btnstr[i]);

end;
end;
SetEditFocus(kord,activeEdit);
end;

procedure SecondScreen(kord:br; btnstr:bstr);
var
i:integer;
c,temp:string;
var f:text;
IoRes:integer;
begin
{$I-}
Assign(f,'help.txt');
reset(f);
{$I+}
SetFillStyle(1,Kord[8][5]);
bar(Kord[8][1],Kord[8][2],Kord[8][3],Kord[8][4]);
SetColor(black);
SetTextStyle(DefaultFont,HorizDir,K ord[8][6]);
outTextXY(Kord[8][7],kord[8][8],btnstr[8]);
SetColor(green);
SetTextStyle(DefaultFont,HorizDir,1 );
if IOResult=0 then
begin
i:=0;
while not(eof(f)) do begin
inc(i);
readln(f,c);
setcolor(white);
outtextXY(Kord[9][1],kord[9][2]+(i*20),c);
end;
close(f);
end
else OutTextXY(Kord[9][1],kord[9][2]+20,'File not found');
end;

procedure SetText(str: string; i:integer; kord:br);
var error,chis:integer;
begin
if (length(buttonstr[activeEdit])>10) then
buttonstr[activeEdit]:=str
else
buttonstr[activeEdit]:=buttonstr[activeEdit]+str;
if (activeEdit=1) then
begin
if (length(buttonstr[activeEdit])<5) then
val(buttonstr[activeEdit],izchislo,error)
else
izchislo:=32;
if(izchislo>32) then izchislo:=32;
end;
SetFillStyle(1,Kord[i][5]);
bar(Kord[i][1],Kord[i][2],Kord[i][3],Kord[i][4]);
SetEditFocus(kord,activeEdit);
SetColor(black);
SetTextStyle(DefaultFont,HorizDir,K ord[i][6]);
outTextXY(Kord[i][7],kord[i][8],buttonstr[activeEdit]);
end.