Составьте программу упорядочения (по возрастанию) элементов одномерного массива А(N), встречающихся в массиве В(R)

Сама спросила, сама решила)))
Program T16_2;
var a, b, c:array [1..20] of integer;
i, j, m, k, n, x, cmax, imax:integer;
begin
write ('vvedyte kol-vo elementovmassiva a');
readln(n);
writeln ('vvedite elementi massiva');
For i:=1 to n do
begin read(a); write(' '); end;writeln;
write ('vvedyte kol-vo elementovmassiva b');
readln(m);
writeln ('vvedite elementi massiva');
For i:=1 to m do
begin read(b); write(' '); end;writeln; k:=0;
For i:=1 to n do
For j:=1 to m do
if a=b[j] then begin k:=K+1; c[k]:=a; end;
for i:=1 to k-1 do
begin
cmax:=c[1];
imax:=1;
for j:=2 to K-i+1 do
if c[j]>cmax then
begin
cmax:=c[j];
imax:=j
end;
c[imax]:=c[k-i+1];
c[k-i+1]:=cmax;
end;
For i:=1 to k-1 do
For j:=i+1 to k do
If c>c[j] then begin x:=c; c:=c[j]; end;
if K=0 then write ('Takix elementov net')
else For i:=1 to k do write(c,' '); writeln;
readln;
end.