Напечатать список цехов ,у которых экономия электроэнергии составила более 5%.(массивы)

uses crt;
const n=7;
      line='-----------------------------------------------------------';
      shap='| Шифр цеха | Лимит,кВт/ч | Израсходовано | Сэкономлено,% |';
var h: array [1..n] of string[10];
    l,r: array [1..n] of real;
    i,k,imax: byte;
    smax: real;
 
begin
writeln('Внесите данные о расходе электроэнергии');
smax:=0;
for i:=1 to n do
    begin
    write('Наименование ',i,' цеха: '); readln(h[i]);
    write('Лимит электроинергии кВт/ч: ');readln(l[i]);
    write('Израсходованная электроинергия кВт/ч: '); readln(r[i]);
    if (l[i]-r[i])*100/r[i]>smax then
       begin
       smax:=(l[i]-r[i])*100/r[i];
       imax:=i;
       end;
    end;
clrscr;
if smax=0 then writeln('Нет цехов, экономия у которых превысила 5 %') else
   begin
   writeln('Цеха, экономия у которых превысила 5 %');
   writeln(line);
   writeln(shap);
   writeln(line);
   for i:=1 to n do
       if (l[i]-r[i])*100/r[i]>5 then
          begin
          inc(k);
          writeln('|',h[i]:10,'|':2,l[i]:12:2,'|':2,r[i]:12:2,'|':4,(l[i]-r[i])*100/r[i]:10:2,'|':6);
          end;
   writeln(line);
   writeln('Всего ',k,' цех(а/ов)');
   writeln('Максимальная экономия у цеха ',h[imax],' составила ',smax:0:2)
   end;
readln;
end.