Создать подпрограмму minmax(a, b), записывающую в переменную a минимальное из значений a и b, а в переменную b - максимальное из этих значен язык pascal

procedure Minmax(var a, b: integer);
var min, max: integer;
begin 
  if a < b then min := a else min := b;
  if a > b then max := a else max := b;
  a := min;
  b := max;
end;

Во-первых, не whill, а while.
 Во-вторых, цикл с предусловием(while) выполняется только тогда, когда его условие возвращает ложь. Если условие возвращает правду, цикл завершается. Бывает так, что при попытке первой итерации цикла условие уже возвращает правду. В этом случае цикл не будет выполнен ни разу.
 Цикл с предусловием(repeat), наоборот, выполняется, пока условие возвращает правду и завершается ложью. Стоит заметить, что если цикл с предусловием проверяет своё условие перед итерацией, цикл с постусловием делает это после, а это значит, что последний выполнится хотя бы один раз.

1. "Где родился, там и пригодился."

Считаем все буквы, пробелы, знаки препинания. Всего символов: 30

ответ: 30

2. 2 страницы * 20 строк * 30 символов = 1200 символов в статье

ответ: 1200

3. Один символ "весит" 2 байта. 76 символов — 76 * 2 байта = 152 байта

ответ: 152 байта

4. В кодовых таблицах первые 32 символа (с кодом от 0 до 31) — управляющие. Символ с кодом 14 — управляющий.

ответ: управляющий

5. 127 страниц * 34 строки * 58 символов = 250 444 символов всего

Каждый символ "весит" 1 байт. 250 444 символов — 250 444 * 1 байт = 250 444 байт / 1024 = 244,5 Кб

ответ: 244,5 Кб

6. Словосочетание "город Якутск" содержит в себе 12 сиволов.

Каждый символ "весит" 1 байт. 12 символов — 12 * 1 байт = 12 байт

ответ: 12 байт