Cортировка методом Пузырька

[Андрей77777]

Помогите по возможности дописать программу!
Нужно отсортировать созданный массив "C" по возрастанию

program lab;
type mas=array [1..100] of integer;
var a,b,c:mas;  i,j,k,n,f,min,r:integer;
begin
randomize;
for i:=1 to 100 do
begin
a[i]:=random(500);
for j:=1 to i-1 do
while a[i]=a[j] do
a[i]:=random(500);
end;

for i:=1 to 100 do
begin
b[i]:=random(500);
for j:=1 to i-1 do
while b[i]=b[j] do
b[i]:=random(500);
end;

for i:=1 to 100 do
begin
r:=0;
for j:=1 to 100 do
if b[i]=a[j] then r:=1;
if r=0 then c[i]:=b[i];
end;

for i:=1 to 99 do
begin
f:=0;
min:=c[i];
for j:=i+1 to 100 do
if c[j]<min then begin min:=c[i]; k:=j; f:=1 end;
if f=1 then begin
c[k]:=c[i];
c[i]:=min; end; end;

for i:=1 to 100 do
write(a[i]:4);

writeln;
for i:=1 to 100 do
write(b[i]:4);

writeln;
for i:=1 to 100 do
write(c[i]:4);

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

не совсем понятно, как Вы формируете массив C из массивов A и B, но, если это опустить (вопрос же в другом, как я понимаю...)

тогда, берём из википедии код сортировки пузырьком
и вставив код получаем:

program lab;
type mas = array[1..100] of integer;

var a, b, c: mas;
  i, j, n, r: integer;
begin
  n := 100;
  randomize;
  WriteLn('---------------------');
  for i := 1 to n do
  begin
    a[i] := random(500);
    for j := 1 to i - 1 do
      while a[i] = a[j] do
        a[i] := random(500);
  end;

  for i := 1 to n do
  begin
    b[i] := random(500);
    for j := 1 to i - 1 do
      while b[i] = b[j] do
        b[i] := random(500);
  end;

  for i := 1 to n do
  begin
    r := 0;
    for j := 1 to n do
      if b[i] = a[j] then r := 1;
    if r = 0 then c[i] := b[i];
  end;

  Write('Массив A: ');
  for i := 1 to n do
    write(a[i]: 4);
  WriteLn;

  Write('Массив B: ');
  for i := 1 to n do
    write(b[i]: 4);
  WriteLn;

  Write('Массив C (до сортировки): ');
  for i := 1 to n do
    write(C[i]: 4);
  WriteLn;


{сортировка массива C "пузырьком"}

  for j := 1 to n - 1 do
    for i := 1 to n - j do
      if c[i] > c[i + 1] then begin
        r := c[i];
        c[i] := c[i + 1];
        c[i + 1] := r;
      end;

  Write('Массив C (после сортировки): ');
  for i := 1 to n do
    write(C[i]: 4);
  WriteLn;


  Readln
end.

p.s. кроме кода сортировки, я позволил себе ещё небольшие "косметические" улучшения..