Написать программу, сортирующую по алфавиту методом "пузырька" строку латинских букв из 15 символов, созданных генератором случайных чисел.(pascal)

сетевые платы для каждого компьютера, концентратор (хаб) или маршрутизатор (свитч), кабель типа "витая пара". кабелем соединить каждый компьютер ()через сетевую плату с хабом или свитчем.

артефакт,инстинкт,антрацит,оригинал.

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.