Построить блок-схему сортировки пузырьком

Program FourSort;
uses crt;
const N=20;
var i,j,k,min,pos,temp,cnt1,cnt2,cnt3,cnt4: integer;
Arr1,Arr2,Arr3,Arr4: array[1..N] of integer;
bestSort: string;
 
begin
clrscr;
randomize;
cnt1:=0; cnt2:=0; cnt3:=0; cnt4:=0;
writeln('Не сортированный массив:');
for i:=1 to N do begin
Arr1[i]:=random(90)+10;
Arr2[i]:=Arr1[i];
Arr3[i]:=Arr2[i];
Arr4[i]:=Arr3[i];
write(Arr4[i]:4);
end;
writeln; writeln;
 
writeln('Сортировка пузырьком:');
for j:=1 to N do
for i:=1 to N-j do begin
cnt1:=cnt1+1;
if Arr1[i]>Arr1[i+1] then begin
temp:=Arr1[i];
Arr1[i]:=Arr1[i+1];
Arr1[i+1]:=temp;
cnt1:=cnt1+1;
end;
end;
for i:=1to N do
write(Arr1[i]:4);
writeln('Отсортировано за ', cnt1, ' действий(я)');
writeln;
 
writeln('Сортировка выбором:');
for j:=1 to N do begin
min:=Arr2[j];
pos:=j;
for i:=j to N do begin
cnt2:=cnt2+1;
if min>Arr2[i] then begin
min:=Arr2[i];
pos:=i;
end;
end;
temp:=Arr2[pos];
Arr2[pos]:=Arr2[j];
Arr2[j]:=temp;
cnt2:=cnt2+1;
end;
for i:=1 to N do
write(Arr2[i]:4);
writeln('Отсортировано за ', cnt2, ' действий(я)');
writeln;
 
writeln('Сортировка вставками:');
for j:=2 to N do begin
i:=j;
while (i>1) and (Arr3[i]<Arr3[i-1]) do begin
temp:=Arr3[i];
Arr3[i]:=Arr3[i-1];
Arr3[i-1]:=temp;
i:=i-1;
cnt3:=cnt3+3;
end;
end;
for i:=1 to N do
write(Arr3[i]:4);
writeln('Отсортировано за ', cnt3, ' действий(я)');
writeln;
 
writeln('Сортировка Шелла:');
k:=N div 2;
while k>=1 do begin
for j:=1 to N-k do begin
i:=j;
while (i>=1) and (Arr4[i]>Arr4[i+k]) do begin
temp:=Arr4[i];
Arr4[i]:=Arr4[i+k];
Arr4[i+k]:=temp;
i:=i-1;
cnt4:=cnt4+3;
end;
end;
k:=k div 2;
end;
for i:=1 to N do
write(Arr4[i]:4);
writeln('Отсортировано за ', cnt4, ' действий(я)');
writeln;
 
min:=cnt1;
bestSort:='Пузырьком';
if min>cnt2 then begin
min:=cnt2;
bestSort:='выбором';
end;
if min>cnt3 then begin
min:=cnt3;
bestSort:='вставками';
end;
if min>cnt4 then begin
min:=cnt4;
bestSort:='Шелла';
end;
writeln('Сортировка ',bestSort,' самая эффективная, она выполнена за ',min,' действий(я)!');
writeln; writeln; writeln;
 
write('PRESS ANY KEY TO CONTINUE...');
readkey;
end.