Построить файл данных, компонентами которого являются вещественные числа. Опре-делить количество чисел, которые больше данного числа Х и меньше данного числа У.

Начнем с определений.
Сообще́ние — наименьший элемент языка, имеющий идею или смысл, пригодный для общения. Также, форма предоставления информации, совокупность знаков или первичных сигналов, содержащих информацию. Обычно сообщение передается в виде предложения или условного знака.
Да́нные — это результат фиксации, отображения информации на каком-либо материальном носителе, то есть зарегистрированное на носителе представление сведений независимо от того, дошли ли эти сведения до какого-нибудь приёмника и интересуют ли они его
Не так трудно извлечь одну общую черту, а именно ИНФОРМАЦИЮ, а точнее ее представления, я не мастер определений, но я бы сказал так - и то и то в какой то мере является передачи или хранения информации. Хотя сообщения как раз зачастую ориентированы на передачу, в то время как данные хранятся в какой нить базе зачастую даже без просмотра...

Const
   N = 10;
   M = 5;
Var
   A:array[1..N,1..M] of byte;
   i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(90)+10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
Write('Числа, кратные трём:');
For i:= 1 to N do
    For j:= 1 to M do
        if A[i,j] mod 3 = 0 then
           Begin
           Write(' ',A[i,j]);
           k:=k+1
           End;
WriteLn;
WriteLn('Их количество: ',k)
End.

Пример работы программы:

Исходный массив:
 89  38  43  42  57
 43  23  71  61  82
 77  80  44  69  92
 35  33  97  48  78
 58  38  58  88  62
 49  43  75  14  68
 20  19  18  43  47
 13  84  14  46  86
 26  22  87  69  75
 68  84  88  38  49
Числа, кратные трём: 42 57 69 33 48 78 75 18 84 87 69 75 84
Их количество: 13