Придумайте свои получения случайных чисел. паскаль.

Чтобы сгенерировать псевдо случайное число, можно брать текущее unixtime и прогонять его через функцию хеширования, которая на выходе даёт только числа(например, алгоритм CRC). Это если диапазон выходных значений не ограничен.

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

//Задание 33
const
  n = 2;
type
  student = record
    f: string;
    p1, p2, p3: integer;
  end;

var
  a: array[1..n] of student;
  m: array[1..n]of real;
  i: integer;
  s: real;

begin
  s := 0;
  for i := 1 to n do
  begin
    writeln('Введите фамилию ', i, ' ученика ');
    readln(a[i].f);
    writeln('оценки по 3 предметам ');
    readln(a[i].p1, a[i].p2, a[i].p3);
    if (a[i].p1 + a[i].p2 + a[i].p3) / 3 >= s then begin
      s := (a[i].p1 + a[i].p2 + a[i].p3) / 3;
      m[i] := s;
    end;
  end;
  if m[1] = m[2] then writeln('Средний учащихся одинаков')
  else if m[1] > m[2] then
    writeln(a[1].f, ' учится лучше')
  else  writeln(a[2].f, ' учится лучше')
end.

Тест №1
Введите фамилию 1 ученика
Иванов
оценки по 3 предметам
3 4 5
Введите фамилию 2 ученика
Петров
оценки по 3 предметам
4 4 4
Средний учащихся одинаков

Тест №2
Введите фамилию 1 ученика
Иванов
оценки по 3 предметам
3 4 4
Введите фамилию 2 ученика
Петров
оценки по 3 предметам
5 5 5
Петров учится лучше

//Задание 34
var a,b,c,min,max:integer;
begin
  readln(a,b,c);
  min:=a; max:=a;
  if b<min then min:=b;
  if b>max then max:=b;
  if c<min then min:=c;
  if c>max then max:=c;
  writeln(max-min);
end.