Вывести в алфавитном порядке список товаров

type data=record
          m,d:integer;
          end;
     tovar=record
           naz:string[20];
           kol:integer;
           cen:real;
           dat:data;
           end;
//функция определения правильности даты
function pr_data(dt:data):boolean;
begin
pr_data:=(dt.m in [1..5])and
         ((dt.m in [1,3])and(dt.d in [1..31]))or
         ((dt.m=5)and(dt.d in [1..5])) or
         ((dt.m=4)and(dt.d in [1..30])) or
         ((dt.m=2)and(dt.d in [1..29]))
end;
//функция определения срока больше месяца
function bolshe(d1,d2:data):boolean;
begin
//если разность месяцев >1, или =1, но текуший день больше дня поступления
bolshe:=(d1.m-d2.m>1)or((d1.m-d2.m=1)and(d1.d>d2.d))
end;
var a:array[1..50] of tovar;
    n,i,j,k:integer;
    x:tovar;
    d1:data;
    s:string;
begin
cls;//очистим окно вывода
repeat
write('Введите количество товаров от 1 до 50 n=');
readln(n);
until n in [1..50];
writeln('Введите информацию о товарах');
for i:=1 to n do
 begin
  writeln('Товар ',i);
  with a[i] do
   begin
    write('Название: ');readln(naz);
    repeat
    write('Количество: ');readln(s);
    val(s,kol,k);
    if(k<>0)or(kol<1) then writeln('Введите натуральное число');
    until(k=0)and(kol>0);
    repeat
    write('Цена: ');readln(s);
    val(s,cen,k);
    if (k<>0)or(cen<=0) then writeln('Введите пложительное действительное число');
    until(k=0)and(cen>0);
    repeat
    writeln('Введите день и месяц поступления от 01.01 до 05.05');
    readln(dat.d,dat.m);
    if not pr_data(dat) then writeln('Дата введена неверно, повторите');
    until pr_data(dat);
   end;
  end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].naz>a[j].naz then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
cls;
writeln('Полный список товаров');
writeln('-----------------------------------------------------------');
writeln('|      Название      |Количество|  Цена  |Дата поступления|');
writeln('-----------------------------------------------------------');
for i:=1 to n do
with a[i] do
 begin
  write('|',naz:20,'|',kol:6,'    |',cen:8:2,'|');
  if dat.d<10 then write('0':7,dat.d,'.0',dat.m,'     |')
  else write(dat.d:8,'.0',dat.m,'     |');
  writeln;
 end;
writeln('---------------------------------------\\------------------');
writeln;
writeln('Товары сроком больше 1 месяца и стоимостью меньше 1000 рублей');
d1.m:=5;//сегодняшняя дата  5 мая
d1.d:=5;
k:=0;
writeln('-----------------------------------------------------------');
writeln('|      Название      |Количество|  Цена  |Дата поступления|');
writeln('-----------------------------------------------------------');
for i:=1 to n do
if bolshe(d1,a[i].dat)and(a[i].cen<1000) then
 begin
  k:=1;
  with a[i] do
   begin
    write('|',naz:20,'|',kol:6,'    |',cen:8:2,'|');
    if dat.d<10 then write('0':7,dat.d,'.0',dat.m,'     |')
    else write(dat.d:8,'.0',dat.m,'     |');
    writeln;
   end;
 end;
if k=0 then write('Таких товаров нет')
else write('-----------------------------------------------------------');
end.