Si entiendo lo que querés hacer, sería algo así:
Código Delphi
[-]
const MisDatos : array[1..8] of Integer = (13, 32, 134, 76, 9, 41, 3, 17);
procedure Buscar(QueCosa: Integer);
var Ind: Integer;
begin
Ind:= 1;
while (Ind <= 8) and (MisDatos[Ind] <> QueCosa) do
Inc(Ind);
if Ind <= 8 then
ShowMessage('Encontrado en la posición ' + IntToStr(Ind))
else
ShowMessage('No encontrado.');
end;
Por cierto, si lo que querés declarar es una matriz, se sigue el mismo principio:
Código Delphi
[-]
const MiMatriz: array[1..3, 1..5] of Integer =
(
(1, 2, 3, 4, 5),
(1, 2, 3, 4, 5),
(1, 2, 3, 4, 5)
);
Por cierto, hay un 99% de probabilidad de que le erres con la cantidad de valores que pongas y obtengas el error "[Error] Unit1.pas(30): Number of elements differs from declaration"...
Eso es porque pusiste cuatro en vez de cinco, o mezclaste las dimensiones y pusiste 3x5 en vez de 5x3...
¿Eso es lo que querías?
Saludetes.