Задача на рекурсию. Сортировка блюд

const n=5;
      b=6;
type arr=array[1..b] of string[7];
     pers=record
          nm:byte;
          kl:byte;
          bl:arr;
          end;
      mas=array[1..n] of pers;
const nb:array[1..b] of string[7]=('салат','первое','второе',
                                   'гарнир','напиток','хлеб');
function max(a:mas;n:byte;var imx:byte):byte;
var w:byte;
begin
imx:=1;
if n>1 then
 begin
  w:=max(a,n-1,imx);
  if a[n].kl<w then max:=w
  else
   begin
    max:=a[n].kl;
    imx:=n;
   end
 end
end;
var a:mas;
    i,j,k,ks,kp,imx:byte;
    m:set of byte;
    p:string[7];
begin
randomize;
for i:=1 to n do
 begin
  a[i].nm:=i;
  a[i].kl:=2+random(5);
  m:=[];
  for j:=1 to a[i].kl do
   begin
    repeat
     k:=1+random(b);
    until not(k in m);
    m:=m+[k];
    a[i].bl[j]:=nb[k];
   end;
 end;
writeln('Блюда, заказанные каждой из персон');
for i:=1 to n do
 begin
  write('№',a[i].nm,' Блюда: ');
  for j:=1 to a[i].kl do
  if j<a[i].kl then write(a[i].bl[j],' ')
  else write(a[i].bl[j]);
  writeln('. Кол-во=',a[i].kl);
 end;
ks:=0;
kp:=0;
for i:=1 to n do
for j:=1 to a[i].kl do
 begin
  if a[i].bl[j]='салат' then inc(ks);
  if a[i].bl[j]='первое' then inc(kp);
 end;
writeln('Количество салатов=',ks);
writeln('Количество первых=',kp);
if ks>kp then writeln('Салаты популярнее')
else if ks<kp then writeln('Первые популярнее')
else writeln('Салаты и первые одинаков популярны');
i:=max(a,n,imx);
writeln('Больше всех блюд заказал номер ',imx)
end.