Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

Вход и выход типа string, иначе какой смысл делать decrypt видимым?

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

Неубедительно. Если decrypt могут вызывать другие процедуры, то decrypt должен работать с их данными. А иначе — абсурд.

а как вам комменты помогуть защититься?

Коммент с описанием loadFile после заголовка сообщит, что тут decrypt уже использован.

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

Это как защищаться, чтобы без комментов?

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

В общем случае decrypt должен работать не только с loadFromArchive. М.б. в последующих версиях.

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

Я про Ваши желания:
"область видимости должна быть минимальной",
"decrypt не должен работать с общим состоянием".

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

Желаемое vs действительное...

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

В таком случае, возможно, он напишет:

loadFile;
decrypt;

при достаточной области видимости decrypt результат будет плачевным.

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

Не понял: пользователю доступен исх.код?

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

Если ТЗ требует формат после удачной загрузки файла, то желание заказчика — закон исполнителю. И кофе можно сварить: хозяин — барин ;)

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

Ага, название процедуры: loadFilePrintErrorDecrypt...

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

Ok. Договорились, что комментарии нужны (в разумных объемах).

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

И чтобы узнать, что делает этот код нужно лезть в отдельную процедуру.

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

а вы в этом случае комментарий сверху тоже обновите?

Конечно.

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

decrypt м.б. нетривиальный по новому алгоритму и
loadFromArchive может быть новым. Может новый драйвер на асм.

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

Пустые строки сродни комментам?

Кроме обработки ошибок, потом может новый код добавиться.

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

Ну ИМХО это уже философский вопрос: насколько реальность отвечает нашим ожиданиям, Статья про разработку новых алгоритмов, и, в этом случае, комменты особо важны: читаем, что хотел автор, и смотрим код: что у него получилось.

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

Завозили, но речь не о том. Речь про отказ от комментов и про использование только значимых имен. Чем больше строк между такими именами — тем труднее читать, тем привлекательней комменты.

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

Если две строки рядом: одна за другой, то читать легко. А если:

procedure loadFile;
var
 err : integer;
begin
 err:= loadFromArchive;
if err<0 then
begin
 if err=-1 then
  print ('I/O error')
else
 if err=-2 then
 print ('File not found')
else
 print ('Unknown error');
exit
end;
decrypt;
  //и так далее
end

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

Можно записать коммент в определение процедуры loadFile:

procedure loadFile;
//загрузить из архивного файла, записи для 
//товарных вагонов, расшифровать их, пустые 
//вагоны добавить в таблицу свободных вагонов
begin

В Вашем решении не понял: что делают методы freight и free?

Почему я продолжаю использовать устаревшие виртовский Pascal и Delphi-7

В процедуре loadFile; просто формат Хабра не позволяет разместить этот вызов и следующий комментарий в одну строку. На практике такой проблемы нет.