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

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.

const 
  znaki = [',', '.', '!', '?', ':', ';'];
var 
  t, tx: text; 
  s: string; 
  i, len: integer;
begin
  assign (t, 'c:\xxx.txt'); 
  reset (t);
  assign (tx, 'c:\yyy.txt');
  rewrite (tx);
  while not eof (t) do begin
    readln (t, s);
    len := length (s);
    for i := 1 to len do begin
      if (s[i] in znaki) and (s[i+1] <> ' ') then
        insert(' ', s, i+1);
    end;
    write (tx, s[i]);
  end;
  close (t);
  close (tx);
end.

  for i := 1 to len do
    if (str [i] in znaki) and (str [i + 1] <> ' ') then begin
      insert (' ', str, i + 1);
      if str [i] = '.' then begin
        c := upcase (str [i + 2]);
        delete (str, i + 2, 1);
        insert (c, str, i + 2);
      end;
    end;