procedure TForm1.Button4Click(Sender: TObject);
var j, k: integer;
    temp: student; //тимчасова змінна для сортування
       f: textfile;
begin
  for j:=0 to i-1 do for k:=j+1 to i-1 do
  if x[j].prizv>x[k].prizv then
  begin
    temp:=x[j];
          x[j]:=x[k];
                x[k]:=temp;
  end;
end;