Вставьте число k перед всеми отрицательными элементами. Паскаль

Пусть k - это номер элемента, после которого мы должны вставить элемент х. Тогда вставка осуществляется следующим образом:

первые k элементов массива остаются без изменения,

все элементы, начиная с (k+1)-го, необходимо сдвинуть на один назад,

на место (k+1)-го элемента записываем значение х;

увеличить количество элементов в массиве на единицу.

Объяснение:

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.

наливаем  воду в сосуд для 5 и переливаем в сосуд из 3-х литров в сосуде их 5-ти остаёться 2,переливаем в ведро,повторяем тоже самое ещё образом получаем 4 литра))