Добавить сортировку товаров по алфавиту и вывод информации о конкретном товаре - Turbo Pascal - Ответ 6724955

const n = 3;
type
 Price=record
  tovar:string;
  magazin:string;
  stoimost: integer
 end;
var
  x : array[1..n] of price;
  i : integer;
  s : string;
  k : boolean;
begin  
  for i:=1 to n do
  with x[i] do
  begin
    write ('nazvanie tovara: ');
    readln (tovar);
    write ('nazvanie magazina: ');
    readln (magazin);
    write ('stoimost: ');
    readln (stoimost);
    writeln
  end;
  for i:=1 to n do
  writeln (x[i].magazin,' ',x[i].tovar,' ',x[i].stoimost);
  
  {второй пункт}
  write('vybor tovara: ');
  readln(s);
  k := false; {товары не найдены}
  for i := 1 to n do
    if X[i].tovar = s then {если поле tovar i-го элемента массива X}
    {есть наш товар, то}
    begin
      k := true;
      writeln('товар: "', X[i].tovar, '", ', ' есть в магазине: ', X[i].magazin,
        ' и стоит: ', X[i].stoimost)
    end;
    if k = false then writeln('нет таких товаров');
  readln
end.