Описать, используя структуру данных запись, завод 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.