Описать, используя структуру данных запись, завод - Pascal

type zavod=record
         name:string[20];
         IdleTime:longint;
         WorkTime:longint;
       end;
const n=5;       
var
  Tidle:longint;
  TWork:longint;
  a:array[1..n] of zavod;
  i:integer;
begin  
  for i:=1 to n do begin
    writeln('#',i);
    write('Наименование станка:');readln(a[i].name);
    write('Время работы:');readln(a[i].WorkTime);    
    write('Время простоя:');readln(a[i].IdleTime);        
  end;
  Tidle:=0;TWork:=0;
  for i:=1 to n do begin Tidle:=Tidle+a[i].IdleTime;TWork:=TWork+a[i].WorkTime;end;
  writeln('Общее время простоя:',Tidle);
  writeln('Список станков не имеющих простоя:');
  for i:=1 to n do if a[i].IdleTime=0 then writeln(a[i].name);
  writeln('Конец списка!');
  if TWork>0 then writeln('Относительное время простоя:',Tidle/TWork*100:0:2) else writeln('все станки простаивали!');
  for i:=1 to n do if a[i].WorkTime>0 then writeln('Станок "',a[i].name,'" относительное время простоя:',a[i].IdleTime/a[i].WorkTime*100:0:2)
  else writeln('Станок "',a[i].name,'" не работал')
  
end.