Кто разбирается в Записях (pascal). Необходимо переделать задачу по условию ниже

type tspis = record
  number: integer;
  name: string;
  price: integer;
  kol: integer;
  end;
var
  spis: array[1..100] of tspis;
  kol: integer;
  function Add: Boolean;
  begin
    inc(kol);
    write('Номер: '); 
    readln(spis[kol].number);
    write('Название: '); 
    readln(spis[kol].name);
    if spis[kol].name='конец' then 
    begin 
      dec(kol);
      result := false;
      exit;
    end
    else
      result := true;
      write('Цена: '); 
      readln(spis[kol].price);
      write('Количество: '); 
      readln(spis[kol].kol);
  end;
  
procedure sort;
var 
  i, j: integer;
  q: tspis;
begin 
  for i := 1 to kol-1 do
  for j := i+1 to kol do 
    if spis[j-1]. price>spis[j].price then 
    begin 
      q:= spis[j-1];
      spis[j-1]:=spis[j];
      spis[j]:= q;
    end;
  writeln ('Самый дешёвый товар: ',spis[1].name);
  writeln ('Полная стоимость самого дешёвого товара: ',spis[1].kol*spis[1].price);
end;
begin
  while add do if kol = 100 then 
  break;
  sort; 
end.

type
  tProd = record
    номер : Integer;
    название : String;
    цена : Integer;
    количество : Integer;
    
    constructor (n : Integer);
    begin
      номер      := n;
      название   := ReadLnString($'Название {n}-го товара:');
      цена       := ReadLnInteger('      Цена:');
      количество := ReadLnInteger('Количество:');
    end;
    
    function информация := $'№{номер} : {название} : стоимость = {цена * количество}';
  end;
  
begin
  var n := ReadLnInteger('Количество товаров:');
  var список := New List<tProd>;
  for var i := 1 to n do список.Add( New tProd(i) );
  var искомоеНазвание : String;
  repeat
    искомоеНазвание := ReadLnString('Ищем товар:');
    if искомоеНазвание.toLower <> 'конец' then
      begin
        var результатПоиска := список.Where(товар -> товар.название.toLower = искомоеНазвание.toLower);
        if результатПоиска.Count > 0 then
          результатПоиска.Select(товар->товар.информация).PrintLines
        else
          $'Товар с названием {искомоеНазвание} не найден.'.Println;
      end;
  until искомоеНазвание.toLower = 'конец';
end.