[Tronix]

Сообщение от beisik

А как второй фрагмент кода относится к массиву?

Ну было бы проше создать два массива, а потом в цикле искать в них соответствия, типа того:

Const

M1 : Array [1..4] of Integer = (102,116,125,150);
M2 : Array [1..4] of Integer = (2,16,25,50);

Function InList(a: integer) : integer;
var
  i : Integer;
Begin
    InList := a;
    For i := 1 to 4 do
          If M1[i] = a then InList := M2[i];
End;