Нужно навести порядок в программе с массивами

const n=50;
var alf:array[1..8]of char;
a,a1,a2,a3:array [0..n] of integer;
b,b1,b2,b3:array [0..n] of string;
c:array [1..(n+n)] of string;
i,j,k,t,min,x:integer;
p:string;
vo:char;
begin
ClrScr;
For vo:='A' to 'H' do
begin
i:=i+1;
alf[i]:=vo;
end;
For i:=1 to n do
begin
a[i]:= random(8)+1;
b[i]:=alf[random(8)+1];
a1[i]:=a[i]; a2[i]:=a[i]; a3[i]:=a[i];
b1[i]:=b[i]; b2[i]:=b[i]; b3[i]:=b[i];
writeln(a[i]:2,' ',b[i]);
end;
for i:= 1 to (n-1) do
for k:= 1 to (n-i-1) do
if a1[k]>a1[k+1] then
begin
t:=a1[k];
a1[k]:=a1[k+1];
a1[k+1]:=t;
end;
 
for i:= 1 to (n-1) do
for k:= 1 to (n-i-1) do
if b1[k]>b1[k+1] then
begin
p:=b1[k];
b1[k]:=b1[k+1];
b1[k+1]:=p;
end;
writeln(' ');
for i:=1 to (n-1) do write(a1[i],' ');
writeln(' ');
for i:=1 to (n-1) do write(b1[i],' ');
 
for i:=2 to n do
begin
k:= i;
while (a2[k] < a2[k-1]) and (k<>1) do
begin
t:=a2[k];
a2[k]:=a2[k-1];
a2[k-1]:=t;
k:= k-1;
end;
end;
for i:=2 to n do
begin
k:= i;
while (b2[k] < b2[k-1]) and (k>1) do
begin
p:=b2[k];
b2[k]:=b2[k-1];
b2[k-1]:=p;
k:= k-1;
end;
end;
writeln(' ');
for i:=1 to (n-1) do write(a2[i],' ');
writeln(' ');
for i:=1 to (n-1) do write(b2[i],' ');
 
for i:=1 to n do
begin
min:=i;
for k:=i to n do
begin
if a3[k]<a3[min] then begin
min:=k;
end;
end;
t:=a3[i];
a3[i]:=a3[min];
a3[min]:=t;
end;
 
for i:=1 to n do
begin
min:=i;
for k:=i to n do
begin
if b3[k]<b3[min] then begin
min:=k;
end;
end;
p:=b3[i];
b3[i]:=b3[min];
b3[min]:=p;
end;
 
writeln(' ');
for i:=1 to (n-1) do write(a3[i],' ');
writeln(' ');
for i:=1 to (n-1) do write(b3[i],' ');
end.

const n=100;
         bk=['A'..'H'];
         cf=['1'..'8'];
var a,b:array[1..n] of char;//1 массив исходный, 2 для записи ходов.
      i,j:byte;//счетчики
      x:char;//буфер для сортировки