пройти, balatech asia 29 уровень

Var a:array[1..100] of integer;
n,i,k,c:integer; 
begin
Randomize;
write('n = '); readln(n);
Writeln('Исходный массив:');
for i:=1 to n do begin
 a[i]:=random(100);
 write(a[i]:6);
 end;
writeln;
 for k := 1 to n-1 do
    for i := n-1 downto k do
      if a[i] > a[i+1] then
        begin
         c:=a[i];
         a[i]:=a[i+1];
         a[i+1]:=c
        end;
Writeln('Отсортированный массив:');
for i:=1 to n do write(a[i]:6);
writeln;
end.

Пример:
n = 15
Исходный массив:
    10     0    59    85    98    71    72    55    29    50    54    27    34    56    73
Отсортированный массив:
     0    10    27    29    34    50    54    55    56    59    71    72    73    85    98

Const
  n = 10;

type
  wind = record
    c: char; //направление ветра (с,ю,в,з)
    f: integer; //сила ветра
  end;

var
  a: array[1..n] of wind;
  i, nday: integer;

begin
  for i := 1 to n do
  begin
    write(i, ' - день направление ветра (с,ю,в,з)');
    readln(a[i].c);
    write('сила ветра :');
    readln(a[i].f);
    if (a[i].c = 'ю') and (a[i].f <= 4) then nday := nday + 1;
  end;
  writeln(' Дней когда дул южный ветер с силой, не превышающей 4 м/с :',nday);
end.

Тестовое решение:
1 - день направление ветра (с,ю,в,з)с
сила ветра :7
2 - день направление ветра (с,ю,в,з)с
сила ветра :7
3 - день направление ветра (с,ю,в,з)ю
сила ветра :6
4 - день направление ветра (с,ю,в,з)ю
сила ветра :5
5 - день направление ветра (с,ю,в,з)ю
сила ветра :4
6 - день направление ветра (с,ю,в,з)в
сила ветра :4
7 - день направление ветра (с,ю,в,з)ю
сила ветра :3
8 - день направление ветра (с,ю,в,з)в
сила ветра :5
9 - день направление ветра (с,ю,в,з)з
сила ветра :4
10 - день направление ветра (с,ю,в,з)ю
сила ветра :3
Дней когда дул южный ветер с силой, не превышающей 4 м/с :3