pascal записи, приоритетные списки товаров

[Тетрадь]

Имеется каталог на 5 видов электроприборов, где указаны: цена и название. Три магазинов составили приоритетные списки, где указаны по 5 видов товара, которые хотели бы приобрести. Зная количество денег для этих целей в каждом магазине, надо напечатать список названий электроприборов, которые может приобрести каждый магазин. Предположить, что магазин приобретает максимально возможное для него число электроприборов, причем можно приобретать несколько электроприборов одного типа.

unit obrabotki;
interface
uses op;
const
psr:array[1..10] of string[20] = ('Пылесос','Холодильник','Микроволновка','Обогреватель','Швейная машинка');
mag:array[1..5] of string[20] = ('Техника','Мир техники','Галактика');
implementation
 
procedure vvod (var sd:prib);
var
i:integer;
begin
randomize;
 
for i:=1 to maxk do begin
    sd[i].name:=psr[i];
    sd[i].cena:=random(3000)+1;
end;
end;
procedure vvod1 (var sd:prib);
var
i:integer;
begin
randomize;
for i:=1 to 5 do begin
    sd[i].name1:=mag[i];
    sd[i].cena2:=random(5000)+2000;
end;
end;
 
procedure vivod(sd:prib);
var
i:integer;
begin
     writeln('---------------------------------------------------------------');
     writeln('|','Название прибора':12,'|','Цена':10,'  |');
     writeln('---------------------------------------------------------------');
     for i:=1 to maxk do writeln('|  ',sd[i].name:12,'  | ', sd[i].cena:10,'|');
     writeln('---------------------------------------------------------------');
end;
procedure ocenka (sd:prib);
var i,sum,q,w,e,r:integer;
begin
     writeln(Приоритетные списки товаров');
     writeln('---------------------------------------------------------------

program pro1;
uses op,obrabotki;
var SD:prib;
begin
vvod(SD);
vvod1(SD);
vivod(SD);
ocenka(sd);
end.

unit op;
interface
const maxk=10;
type tovar = record
     name:string[12];
     name1:string[15];
     cena:integer;;
     cena2:integer;
     cena3:integer;
     end;
type
prib = array[1..maxk] of tovar;
var
   sd:prib;
implementation
end.

Не знаю как написать приоритетные списки и, что бы с ними можно было работать.