Написать программу для вывода информации в виде таблицы

type
   v=record
     name:string[20];
     ves:real;
     Prov:integer;
   end;  
var
  a:array of v;
  n,i:integer;
  b:boolean;
begin
  repeat
    write('К-во веществ:');
    readln(n);
  until n>0;
  SetLength(a,n);
  for i:=0 to n-1 do begin
    Writeln('Вещество ',i+1,':');
    write('Наименование:');readln(a[i].name);
    write('Удельный вес:');readln(a[i].ves);
    repeat
      write('Проводимость (1-проводник,2-полупроводник,3-изолятор):');
      readln(a[i].Prov);
    until a[i].Prov in [1..3];
    writeln('***************************************************************');
  end;
  writeln('Все полупроводники:');
  writeln('-----------------------------------------------------------------');
  writeln('Наименование вещества ':25,'|','Удельный вес':20,'|');
  writeln('-----------------------------------------------------------------');
  b:=false;
  for i:=0 to n-1 do
    if a[i].Prov=2 then begin
      writeln(a[i].name:25,'|',a[i].ves:20:4,'| полупроводник');
      b:=true;
    end;  
  writeln('-----------------------------------------------------------------');
  if not b then writeln('Нет полупроводников');
  readln;
end.