Как организувать?

[xTANATOSx]

Если я прописал процедуру req то для штоб запустить еє нада просто написать
req;
Тепер вопрос
Мне нада проверять приходящиї данние в которих содержатса названия процедур и запускать нужную,ети процедури все прописание уже.
Такой способ неработает:
(В s содержитса названия нужной процедури,а в масиве A список всех)
For i:=1 to 200 do
Begin
if a[i]=s then
a[i];
end;

А писать
Begin
if s='названия 1 процедури' then
1 прцедура;
if s='названия 2 процедури' then
2прцедура;

Нерационально
Есть какието другие способи?

[_SERGEYX_]

Только что делал что-то подобное...
..но я все залил в одну процедуру в виде

procedure WriteCode(x: integer);
begin
case x of
1: begin .... end;
2: begin .... end;
3: begin .... end;
4: begin .... end;
end;
end;

и далее вызываю
WriteCode(1);
WriteCode(2);

[xTANATOSx]

аааа.Я понял!Спасиба за помощ!