Можно, но лучше на ST.
Подойдут функции Casse и IF.
Упрощенно типа так:
IF Prog=1 THEN
VDK_p:=VDK1;
ELSIF Prog=2 THEN
VDK_p:=VDK2;
.......
ELSE
VDK_p:=0;
END_IF
И далее для следующей переменной.
Если присваивание и чтение делать через цикл FOR и команду exit, то это значительно сократит код, хотя смысл будет тем же. Если хотите, то разберетесь.
Не разберетесь -пишите как выше "индийский" код.