Дорисовать таблицу и поправить поиск.Программа работает на 90% - Pascal ABC

program lab_xx;
const nmax=25;
type detal=record
  nom:string;
  name:string [15];
  b:real; {massa}
  c:real; {razmery}
  d:string [15]; {material}
  e:real; {koli4estvo}
  end;
var detalishka : array[1..nmax] of detal;
  i.n:integer;
  mp;rk:string;
begin
  writeln('vvedite obc4ee kol-vo detaley ')
  readln(n);

  for i:=1 to n do
  begin
     writeln('vvedite nazv,massa,razmery,material,koli4estvo ',i);
     with detalishka[i] do
       begin
            readln(name);
            readln(b);
            readln(c);
            readln(d);
            readln(e);
       end;
  end;
пЅ›Table}
  {writeln...}
  {writeln...}
  for i:=1 to n do 
    with detalishka[i] do
     begin
      {writeln...
       write
       write
       write
       write
       write
       writeln}
     end;
  {writeln......}
  writeln('nazvanie iskomoi detali');
  readln(mp);
 
  rk:=' ';
  while rk<>'Kонец' do
  beign
  n:=0
  for i:=1 to n do 
  with detalishka[i] do 
    if name=np then
       begin 
         writeln(name);
         n:=n+1;
       end;
   if n=0 then writeln('takoi detali net');
   readln(mp);
  end
End.