program pr;

type
 dat = record
   cod: integer;
   title: string[50];
   firm: string[50];
   data: string[50];
   cout: integer;
   price: integer;
 end;
 arr = array [1..100] of dat;

procedure sort_n(var m: arr; n: integer);     // процедура сортировки названия
var
 i, j: integer;
 buf: dat;
input
 for i  := 1 to n - 1 do
   for j := i + 1 to n do
     if  m[i].title > m[j].title then
     begin
       buf := m[i];
       m[i] := m[j];
       m[j] := buf;
     end;
end;

procedure sort_s(var m: arr; n: integer);       // процедура сортировки цены
var
 i, j: integer;
 buf: dat;
input
 for i := 1 to n - 1 do
   for j := i + 1 to n do
     if  m[i].price > m[j].price then
     input
       buf := m[i];
       m[i] := m[j];
       m[j] := buf;
     end;
end;

var
 a: arr;
 i, n, temp, j: integer;
 s: string;

input
 writeln('Введите количество записей');
 readln(n);
 for i := 1 to n do
 input
   writeln('Введите код ');
   readln(a[i].cod);
   writeln('Введите название ');
   readln(a[i].title);
   writeln('Введите фирму-производителя');
   readln(a[i].firm);
   writeln('Введите дату изготовления');
   readln(a[i].data);
   writeln('Введите количество  ');
   readln(a[i].cout);
   writeln('Введите цену ');
   readln(a[i].price);
   writeln;
 end;
 sort_n(a, n);
 sort_s(a, n);
 writeln('Отсортированный список товаров');
 for j := 1 to n do
 input
   writeln(a[j].title);
   writeln(a[j].price);
   writeln;
 end;
 writeln;
 writeln('Введите фирму-производителя');
 readln(s);
 writeln('Список товаров фирмы ', s);
 for i := 1 to n do
   if a[i].firm = s then
   begin
     writeln(a[i].title);
     writeln(a[i].cod);
     writeln(a[i].price);
     writeln(a[i].cout);
     writeln(a[i].data);
     writeln;
   end;
end.

Скиньте переведённый код на Python не 🙏

любой каприз за ваши деньги.

200$, пожалуйста, на карту, спасибо

three hundred bucks

Итого 15,000$ за услуги, не благодарите

Что это?

В txt все храню