Program PascalGuru;
uses crt;
 
type m = record
          name   :string[20];
          kolvo  :integer;
          cena   :real;
          ctoim  :real;
          norma  :real;
         end;
 
var massiv:array[1..50] of m;
    i,n,code,count:integer;
    cenaposle,max:real;
    s:string;
    f:text;
{--------------------------------------------------------}
 
begin
assign (f,'bd31.txt' ); reset (f);
 
i:=0;
while not eof(f) do begin
inc(i);
readln(f,s);
massiv[i].name:=copy(s,1,pos(' ',s)-1 );                  delete(s,1,pos(' ',s) );
val(copy(s,1,pos(' ',s)-1 ),massiv[i].kolvo,code );       delete(s,1,pos(' ',s) );
val(copy(s,1,pos(' ',s)-1 ),massiv[i].cena,code );        delete(s,1,pos(' ',s) );
val(copy(s,1,pos(' ',s)-1 ),massiv[i].ctoim,code );       delete(s,1,pos(' ',s) );
val(s,massiv[i].norma,code);
end;
n:=i;
{--------------------------------------------------------}
writeln('1:');  writeln;
write('Detali, tsena kotoryh bolishe: '); readln(cenaposle);
writeln;
 
for i:=1 to n do
 if massiv[i].cena>cenaposle then
  writeln(massiv[i].name:12,massiv[i].kolvo:5,massiv[i].cena:8:2,massiv[i].ctoim:8:2,massiv[i].norma:8:2);
 
{--------------------------------------------------------}
writeln;writeln('2:'); writeln;
 
max:=massiv[1].norma;
for i:=2 to n do
 if massiv[i].norma>max then max:=massiv[i].norma;
 
count:=0;
for i:=1 to n do
 if massiv[i].norma=max then
  begin
   writeln(massiv[i].name:12,massiv[i].kolvo:5,massiv[i].cena:8:2,massiv[i].ctoim:8:2,massiv[i].norma:8:2);
   inc(count);
  end;
 
writeln;writeln('Kol-vo: ',count);
 
close(f);
readln;
end.