Pascal/Turbo Pascal - consulta

HOLA:
quisiera saber como resolver el siguiente ejercicio:

para cada cliente, que marca y modelo le fue asignado, la empresa utiliza la siguiente metodología

a)a los clientes de 20 a 40 años se le asigna categoría 1, si no hay se le otorga la categoría 2, si no hay se le asigna categoría 3

b) a los clientes mayores de 40 se les asigna categoría 4, si no hay se le da categoría 5, y si no hay 5 se le da 6

c) la cantidad máxima de celulares es 500

yo hice un vector (1...6) para la categoria
un vector celular (1...500)
un registro con marca, modelo y edad

me quedan dudas en cuanto al programa

catmin:=1
catmax:=3
IF (edad<=20 or edad =>40)
asignar celular(catmin, catmax, celular)
else
catmin:=4
catmax:=6
if edad >40
asignar celular(catmin, catmax, celular)

Procedure asignar celular(catmin, catmax: integer; var c:celular)
var
i:integer
seguir:boolean

begin
i:=1
seguir:=true
while( cel(i).cat<catmin)do
i:=i+1
while(cel(i).cat<=catmax) and (seguir)do
if(cels(i).asig=false) then
cels(i).asig:=true
seguir:=false
else
i:=i+1

Yo diría que solo necesitas un vector de registros tal como:

type

TCelular=record
Marca: string[20];
Modelo: string[10];
Asignado: boolean;
Categoria: byte;
end;

var
Celulares: array[1..500] of TCelular;

Hay que llenar el vector con datos antes de comenzar con la entrada de clientes.

Se pide la edad del cliente.
Si la edad es mayor o igual a 20 y la edad es menor o igual a 40:
hacer un cliclo que recorra el vector hasta que se encuentre un celular cuya categoría sea 1 o 2 o 3 y no esté asignado ya, o bién no haya celulares que no estén asignados.
Si la edad es mayor a 40:
hacer un cliclo que recorra el vector hasta que se encuentre un celular cuya categoría sea 4 o 5 o 6 y no esté asignado ya, o bién no haya celulares que no estén asignados.
Si la edad es menor a 20 rechazar el cliente.

Cuando se encuentra un celular no asignado, cambiar su estatus a asignado.

Tal como está el ejercicio no es necesario guardar los datos del cliente.