Дорисовать таблицу и поправить поиск.Программа работает на 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.

Решение задачи: «Дорисовать таблицу и поправить поиск.Программа работает на 90%»

Листинг программы

writeln('Полный список деталей');
writeln('------------------------------------------------------------');
writeln('|    Название   | Масса | Размер |   Материал   |Количество|');
writeln('------------------------------------------------------------');
for i:=1 to n do
with detalishka[i] do
writeln('|',name:15,'|',b:5:2,'|',c:8:2,'|',d:15,'|',e:10:2,'|');
writeln('------------------------------------------------------------');

Объяснение кода листинга программы

Выводится заголовок таблицы.
Выводится заголовок таблицы.
Выводится полный список деталей.
Выводится таблица с деталью, номер которой равен i.
Для каждой детали из списка detalishka выводится название, масса, размер, материал и количество.
Выводится таблица с деталью, номер которой равен i.
Выводится заголовок таблицы.
Выводится полный список деталей.