Народ, помогите с алгоритмом, которым написана таблица. Нужно, алгоритм исправить так, что б запрашивало что вывести:
Или « LMin, LMax: »
Или « VMin, VMax: »
Или « HMin, HMax: »
И после этого выводило.
И с выведенных данных можно избрать один.

const
maxSubstr = 3;
NA = -1;
type
subR =
record
D: integer;
LMin, LMax: integer;
VMin, VMax: integer;
HMin, HMax: integer;
end;

R =
record
Title: string; { Марка }
Coeff: double; { Коэффициент }
s: string; { Стойкость дуги }
z: double; { Затрата }

subCount: 1 .. maxSubstr; { Кол-во диаметров }
sub: array[1 .. maxSubstr] of subR; { Данные по диаметрам }
rod: string; { Род тока }
tMin, tMax: integer; { Т прокаливания от/до }
end;

const
Table: array[1 .. 4] of R = (
(
Title: 'ГЛ-14'; Coeff: 8.0; s: 'Удовл'; z: 1.5;
subCount: 3;
sub:
(
(D: 3; LMin:100; LMax:120; VMin: 80; VMax:110; HMin: 80; HMax:110),
(D: 4; LMin:160; LMax:180; VMin:130; VMax:160; HMin:130; HMax:160),
(D: 5; LMin:200; LMax:220; VMin: NA; VMax: NA; HMin: NA; HMax: NA)
);
rod: 'Постоянный'; TMin: 300; TMax: 350
),
(
Title: 'ЦЛ-20-63'; Coeff: 10.3; s: ''; z: 1.6;
subCount: 2;
sub:
(
(D: 4; LMin:140; LMax:160; VMin:110; VMax:130; HMin: NA; HMax: NA),
(D: 5; LMin:180; LMax:210; VMin: NA; VMax: NA; HMin: NA; HMax: NA),
(D:NA; LMin: NA; LMax: NA; VMin: NA; VMax: NA; HMin: NA; HMax: NA)
);
rod: ''; TMin: 330; TMax: 350
),
(
Title: 'ЦЛ-26М-63'; Coeff: 10.5; s: 'Высокая'; z: 1.6;
subCount: 2;
sub:
(
(D: 3; LMin:110; LMax:130; VMin:100; VMax:120; HMin:100; HMax:120),
(D: 4; LMin:160; LMax:180; VMin:140; VMax:160; HMin:140; HMax:160),
(D:NA; LMin: NA; LMax: NA; VMin: NA; VMax: NA; HMin: NA; HMax: NA)
);
rod: ''; TMin: 330; TMax: 350
),
(
Title: 'ЦЛ-17-63'; Coeff: 10.5; s: 'Удовл'; z: 1.6;
subCount: 2;
sub:
(
(D: 3; LMin: 80; LMax:120; VMin: 70; VMax: 90; HMin: 70; HMax:110),
(D: 4; LMin:130; LMax:160; VMin:130; VMax:150; HMin:130; HMax:150),
(D:NA; LMin: NA; LMax: NA; VMin: NA; VMax: NA; HMin: NA; HMax: NA)
);
rod: ''; TMin: 300; TMax: 350
)
);

И сюда добрался...

1) добавь теги CODE=pas...
2)

writeln('Что надо вывести?'); readln(s);

Оно уже запрашивает, что надо вывести. Задача решена? Или ты все-таки соизволишь дать ПОЛНОЕ задание? Не те куски, которые выкладывал на Сурсах (перечитай сейчас ту свою тему - что-нибудь понял сам-то?), а четкое задание - что обязательно, что нет, в каком порядке что вводится и так далее... И, я тебя прошу, не разводи опять тему про то, что школу ты закончил 8 лет назад, и так далее... ЭТО - твоя проблема, но никак не наша, договорились? Не надо перекладывать с больной головы.

Итого, что имеем? Я тебе на Сурсах описал таблицу. Ты пришел сюда, кто-нибудь еще что-нибудь сделает, куда дальше пойдешь, чтоб еще продолжили? Я знаю, куда, но я тебя уверяю, ТАМ я задам тот же вопрос

Договорились.
Только на первый взгляд, проблем не вижу, а начну разбираться, снова может появиться.
А полное задание думаю некому не надо, там где то 5 таких таблиц, и простые математические расчеты. Я так прикинул, и без этого возни много. И к тому же идет инженерная специфика по металлам, не знаю или программисты поймут.
А за помощь спасибо. Очень вам благодарен, по тому и на том сайте не стал писать, бо подумал и так большая работа, я б не выдержал, Быстрее кому-то чертеж на формате А0 начертил или 5 листов по теормехе накатал, но такое нет.
Надеюсь в следующие разы мне не откажете.

Я не понял: алгоритм чего нужно исправить? Как должно быть?
Описание путёвое есть? Специфика тут ни причём. Ведь информации недостаточно для того, чтобы тебе помочь.