Опишите используя запись товар( наименование, старая цена, новая цена). Определить на какие товары повысятся цены и на сколько процентов

uses crt;
type tovar=record
          naz:string[20];
          cen1,cen2:integer;
          end;
const max=20;
var a:array[1..max] of tovar;
    n,i,k:byte;
begin
clrscr;
repeat
write('Количество товаров до ',max,' n=');
readln(n);
until n in [1..max];
writeln('Введите данные о товарах:');
for i:=1 to n do
 begin
  writeln('Товар ',i);
  with a[i] do
   begin
    write('Название: '); readln(naz);
    write('Старая цена: '); readln(cen1);
    write('Новая цена: '); readln(cen2);
   end;
 end;
clrscr;
writeln('Сведения о товарах:');
writeln('------------------------------------------------');
writeln('|     Название      | Старая цена | Новая цена |');
writeln('------------------------------------------------');
for i:=1 to n do
with a[i] do
 begin
  gotoXY(1,whereY);write('| ',naz);
  gotoXY(21,whereY);write('|',cen1:10);
  gotoXY(35,whereY);write('|',cen2:10);
  gotoXY(48,whereY);writeln('|');
 end;
writeln('------------------------------------------------');
write('Press Enter');
readln;
clrscr;
writeln('Список товаров, на которые повысились цены:');
k:=0;
writeln('Сведения о товарах:');
writeln('--------------------------------------------------------------');
writeln('|     Название      | Старая цена | Новая цена | Повышение,% |');
writeln('--------------------------------------------------------------');
for i:=1 to n do
with a[i] do
if cen2>cen1 then
 begin
  k:=1;
  gotoXY(1,whereY);write('| ',naz);
  gotoXY(21,whereY);write('|',cen1:10);
  gotoXY(35,whereY);write('|',cen2:10);
  gotoXY(48,whereY);write('|',(cen2-cen1)/cen1*100:10:2);
  gotoXY(62,whereY);writeln('|');
 end;
writeln('--------------------------------------------------------------');
if k=0 then write('Повышений нет');
readln
end.