Составить программу, определяющую, на какие товары повысятся цены и на сколько процентов

uses crt;
type tovar=record  {задаем запись}
nam: string;
st_cena: integer;
nov_cena: integer;
end;
var i,j,n:integer;
a:real;
zap: array [1..100] of tovar;
begin
 clrscr;
 writeln('skolko tovara?');
 readln(n);
 for i:=1 to n do  { заполняем запись}
  begin
  writeln('vvedite nazvanie ',i,'go tovara');
  readln(zap[i].nam);
  writeln('vvedite staruy cenu');
  readln(zap[i].st_cena);
  writeln('vvedite novuy cenu');
  readln(zap[i].nov_cena);
  clrscr;
 end;
 for i:=1 to n do  {производим операции с записью}
  begin
  if zap[i].nov_cena>zap[i].st_cena then {если цена повысилась}
   begin
   a:=(100*zap[i].nov_cena)/ zap[i].st_cena;
   a:=a-100;
   writeln('na tovar  ',zap[i].nam,' povisilas cena na ',a:4:2,'%');
  end else
   writeln('na tovar  ' , zap[i].nam, ' cena ne povisilas');
 end;
 readkey
end.