Заданы два массива

type
  tar=array[1..100] of integer;
var
  a,b: tar;
  n,i,j,t: integer;
begin
  randomize;
  write('Ââåäèòå ðàçìåðíîñòü: ');
  readln(n);
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    b[i]:=random(99)+1;
  end;
  writeln('Èñõîäíûé ìàññèâ A:');
  for i:=1 to n do write(a[i]:4); writeln;
  writeln('Èñõîäíûé ìàññèâ B:');
  for i:=1 to n do write(b[i]:4); writeln;
  for i:=1 to n-1 do
    for j:=i+1 to n do
    begin
      if a[i]>a[j] then
      begin
        t:=a[i];
        a[i]:=a[j];
        a[j]:=t;
      end;
      if b[i]>b[j] then
      begin
        t:=b[i];
        b[i]:=b[j];
        b[j]:=t;
      end;
    end;
  writeln('Îòñîðòèðîâàííûé ìàññèâ A:');
  for i:=1 to n do write(a[i]:4); writeln;
  writeln('Îòñîðòèðîâàííûé ìàññèâ B:');
  for i:=1 to n do write(b[i]:4); writeln;
  readln;
end.