const N=10;
type Trekord=record
           mezo1:byte;
           mezo2:string;
        end;		
        Tvektor=array[1..N] of Trekord;
var i,j:byte;
      cs:Trekord;
      t:Tvektor;
begin
       for i:=1 to N-1 do
        for j:=i+1 to N do
         if t[i].mezo1 > t[j].mezo1 then begin
		         cs:=t[i];
		         t[i]:=t[j];
		         t[j]:=cs;	
end.