Найти удельные веса и названия всех проводников - Pascal ABC - Ответ 3008186

Program Z20;
Uses CRT;
type vesh=record
     name: string;
     prov: string;
     ves:  integer;
     end;
     var i,j,n,k,m,min,max:integer;
         a:array[1..10] of vesh;
         b:string;
         f: text;
     begin
     assign (f,'veshestva.dat');
     rewrite(f);
          writeln('сколько будет веществ');
          readln(j);
          for i:=1 to j do begin
          writeln ('введите данные о',i,'-ом веществе');
          writeln ('название,удельный вес,проводимость');
           with a[i] do
              begin
               readln(name);
               readln(ves);
               readln(prov);
               write(f,name,ves,prov);
              end;
     end;
    close(f);
    reset(f);
    min:=a[i].ves;
 
    if a[i].prov='проводник' then
    if a[i].ves<min then min:= a[i].ves;
     writeln('минимальный вес проводника',min,'это вещество',' ',a[i].name);
       max:=0;
      if a[i].prov='изолятр' then
       if a[i].ves > max then max:= a[i].ves;
        writeln('максимальный вес изолятора',max,'это вещество',' ',a[i].name);
       for i:=1 to j do begin
    writeln('название вещества',' ',a[i].name:5);
    writeln('вес вещества',' ',a[i].ves:5); end;  close(f);
 
     end.

Program Z20;
Uses CRT;
type vesh=record
     name: string;
     prov: string;
     ves:  integer;
     end;
     var i,j,n,k,m,min,max:integer;
         a:array[1..15] of vesh;
         b:string;
         f: text;
     begin
     assign (f,'veshestva.dat');
     rewrite(f);
          writeln('сколько будет веществ');
          readln(j);
          for i:=1 to j do begin
          writeln ('введите данные о',i,'-ом веществе');
          writeln ('название,удельный вес,проводимость');
           with a[i] do
              begin
               readln(name);
               readln(ves);
               readln(prov);
               write(f,name,ves,prov);
              end;
     end;
    close(f);
    reset(f);
    //вывод на экран полупроводников с именами и удельным весом
    for i:=1 to j do begin
    if a[i].prov = 'проводник' then
      writeln('проводник:',' ', a[i].name,' ',a[i].ves);
    end;
    min:=99999;
    max:=0;
    //минимальный вес полупроводника
     for i:=1 to j do begin
     if (a[i].prov ='полупроводник') and (a[i].ves<min) then
      min:=a[i].ves; end;
     writeln( 'полупроводник с мин весом',' ',min);
     //максимальный вес изолятора
     for i:=1 to j do begin
     if a[i].prov ='изолятор' then
     if a[i].ves>max then max:=a[i].ves; end;
     writeln( 'максимальный удельный вес изолятора',' ',max);
     close(f);
     end.