Массив содержит информацию о погоде в июле: температура ночью и днем, скорость ветра, влажность воздуха

const
  n = 31;
 
type
  Data = Record
    noch, dnev: Real;
    scor, vlag: Integer;
    daynumber: byte;
  end;
  mas = array[1..n] of Data;
 
var
  Month: mas;
  i: integer;
 
procedure Sort(var a: mas);
var
  i, j, x, k: integer;
  c: real; c1: integer;
begin
  for k := 1 to n - 1 do
    for j := 1 to n - k do
      if (Month[j].dnev > month[j + 1].dnev) then
      begin
        c := month[j].noch;
        month[j].noch := month[j + 1].noch;
        month[j + 1].noch := c;
        c := month[j].dnev;
        month[j].dnev := month[j + 1].dnev;
        month[j + 1].dnev := c;
        c1 := month[j].scor;
        month[j].scor := month[j + 1].scor;
        month[j + 1].scor := c1;
        c1 := month[j].vlag;
        month[j].vlag := month[j + 1].vlag;
        month[j + 1].vlag := c1;
        c1 := month[j].daynumber;
        month[j].daynumber := month[j + 1].daynumber;
        month[j + 1].daynumber := c1;
      end;
end;
 
 
begin
  for i := 1 to  n do
  begin
    with Month[i] do
    begin
      noch := random(5);
      dnev := random(10) + 5;
      vlag := random(100);
      scor := random(15);
      daynumber := i;
    end;
  end;
  writeln('Входные данные:');
  for i := 1 to n do
    with Month[i] do
      writeln('№ дня ', i:2, ' Ночь : ', noch:2, ' День ', dnev:2, ' Скорость ', scor:2, ' Влажность ', vlag:2, '%');
  
  writeln(#13#10 + 'Вывод:' + #13#10);
  sort(month);
  
  for i := 1 to n do
    write(Month[i].daynumber:2, ' ');
end.