Дан список товаров, содержащий следующие данные: название товара, 
стоимость покупки, стоимость продажи, количество проданного товара. 
вывести список товаров отсортировав его по полученной прибыли.

program zap6;
uses crt;
type tovar=record
     name:string;
     pro,kol,pok,qwe,pri:integer;
end;
var f,c:array[1..20] of tovar;
    i,n,j,max:integer;
    pr:tovar;
begin
clrscr;
write('Введите кол-во товаров: ');
readln(n);
for i:=1 to n do
  begin
    writeln;
    writeln('Товары',i);
    write('Введите название товара: ');
    readln(f[i].name);
    write('Введите стоимость покупки: ');
    readln(f[i].pok);
    write('Введите стоимость продажи: ');
    readln(f[i].pro);
    write('Введите кол-во товара*: ');
    readln(f[i].kol);
  end;

for i:=1 to n do
  begin
    f[i].pri:=(f[i].pro-f[i].pok)*f[i].kol;
   for j:=i+1 to n do
      begin
       f[j].pri:=(f[j].pro-f[j].pok)*f[j].kol;
        if f[j].pri>f[i].pri then
        begin
         pr:=f[j];
         f[j]:=f[i];
         f[i]:=pr;
        end;
      end;
  end;
writeln;
for i:=1 to n do
writeln(i,' товар "',f[i].name,'" (',f[i].pri,' прибыль)');
readln
end.