Исполнитель Редактор получает на вход строку цифр и преобразовывает её. Редактор может выполнять две команды, в обеих командах v и w обозначают цепочки символов. заменить (v, w)

нашлось (v)

Первая команда заменяет в строке первое слева вхождение цепочки v на цепочку w. Если цепочки v в строке нет, эта команда не изменяет строку. Вторая команда проверяет, встречается ли цепочка v в строке исполнителя Редактор.

Дана программа для Редактора:

НАЧАЛО
ПОКА нашлось (21) ИЛИ нашлось (31) ИЛИ нашлось (23)
ЕСЛИ нашлось (21)
ТО заменить (21, 12)
КОНЕЦ ЕСЛИ
ЕСЛИ нашлось (31)
ТО заменить (31, 13)
КОНЕЦ ЕСЛИ
ЕСЛИ нашлось (23)
ТО заменить (23, 32)
КОНЕЦ ЕСЛИ
КОНЕЦ ПОКА
КОНЕЦ
На вход приведённой программе поступает строка, содержащая 50 цифр 1, 50 цифр 2 и 50 цифр 3, расположенных в произвольном порядке. Запишите без разделителей символы, которые имеют порядковые номера 10, 90 и 130 в получившейся строке.

Условие дано не совсем корректно. "Каждые 45 минут на прием приходят два человека" - это можно понять двояко: 1) через каждые 45 минут одновременно приходят два человека 2) в течение каждых 45 минут приходят два человека.
Примем условие №1, потому что при условии №2 получается неопределенность (например, каждый приходит в какой-то свой момент времени и даже двое могут прийти на последней секунде этих 45 минут).

Каждые 45 минут приходят двое больных; врач проведет прием двух больных за 40 минут, следовательно, еще 5 минут у него больных не будет и этот цикл повторяется в течение всего времени приема.
1-20 минута: один больной на приеме, один в очереди.
21-40 минута: один больной на приеме, очереди нет.
41-45 минута: на приеме никого нет, очереди нет.
Максимальное время нахождения людей в клинике - 40 минут.
Максимальное количество людей, ожидающих приема - один человек в течение 20 минут.

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

// Листинг программы и скриншот результата в приложениях.

const
    max_v = 15;
    m1 = -20;
    m2 = 50;
   
var i,j:byte;
    v:array [1..max_v] of integer;
    a,b:integer;

// начальное заполнение массива
procedure randomArray(tx:string);
var i:byte;
begin
  writeln(tx);
  randomize();
 
  for i:=1 to max_v do begin
    v[i]:=random(m1,m2);
    write(v[i]:6);
  end;
  writeln('');
  writeln('');
end;

begin
  randomArray('Начальный массив');
  writeln('Вывести все элементы,в записи которых есть цифра 5 или 7');
 
  for i:=1 to max_v do begin
    //десятки числа
    a:=v[i] div 10;
    //единицы числа
    b:=v[i] mod 10;
    if (a=7) or (a=5) or (b=7) or (b=5)
    then
      writeln(v[i]);
  end;
   
end.