Имеются данные о семи линиях электропередач (ЛЭП): шифр, напряжение, протяженность, год ввода в действие, дата последних линейных работ. Требуется выдать справку о ЛЭП, введенных в действие более 10-ти лет назад, а также выдать сведения о ЛЭП минимальной протяженности — Pascal(Паскаль)

var
   i,min:longint;
   v,l,y:array[1..7] of integer;
   s,wd:array[1..7] of string;
begin
   for i:=1 to 7 do
   begin
      writeln;
      writeln(i,': ');
      writeln;
      write('Шифр: ');
      readln(s[i]);
      write('Напряжение: ');
      readln(v[i]);
      write('Длина: ');
      readln(l[i]);
      write('Возраст: ');
      readln(y[i]);
      write('Дата последних ремонтных работ: ');
      readln(wd[i]);
   end;
   writeln;
   writeln('ЛЭП, которые старше 10 лет : ');
   writeln;
   for i:=1 to 7 do
      if y[i]>10 then
      begin
         writeln;
         writeln(i,': ');
         writeln;
         write('Шифр: ');
         write(s[i]);
         writeln;
         write('Напряжение: ');
         write(v[i]);
         writeln;
         write('Длина: ');
         write(l[i]);
         writeln;
         write('Возраст: ');
         write(y[i]);
         writeln;
         write('Дата последних ремонтных работ: ');
         write(wd[i]);
         writeln;
      end;
   min:=l[1];
   for i:=1 to 7 do
      if l[i]<min then
         min:=l[i];
   writeln;
   writeln;
   writeln('Минимальная длина у ЛЭП: ');
   for i:=1 to 7 do
      if l[i]=min then
      begin
         writeln;
         writeln(i,': ');
         writeln;
         write('Шифр: ');
         write(s[i]);
         writeln;
         write('Напряжение: ');
         write(v[i]);
         writeln;
         write('Длина: ');
         write(l[i]);
         writeln;
         write('Возраст: ');
         write(y[i]);
         writeln;
         write('Дата последних ремонтных работ: ');
         write(wd[i]);
      end;
   readln;
end.