Генератор случайных чисел, Ошибка в знаке... Опции

[Psychologist]

Добрый вечер.
Помогите, пожалуйста, найти ошибку. Ошибка в 1-2 символах (по-моему).

Суть задачи: На экран выводятся 3 последовательности из 10 случайных чисел (числа от 44 до 99). В каждом ряду посчитать среднее арифметическое.
Всё вроде бы работет, ток вот программа считает, что отрицательные числа тоже можно использовать. Как это дело устранить?

Program PRAKT_03;
Var
   n , s , i , j : Integer;
   s2            : Real;
Begin
   s:=0;
   randomize;
   writeln ('*** Chisla ot 44 do 99 ***');
   writeln;
   for i:=1 to 3 do begin
      for j:=1 to 10 do begin
         n:=random (143)-44;
         write (n:4);
         s:=s+n;
      end;
      s2:=s/10;
      writeln (' (srednee arifmeticheskoe - ', s2:3:1, ')');
   end;

readln;
End.

[Client]

Если случайное число равно 0, то N = -44

[volvo]

n := random (56) + 44;

?

[Client]

n := random (56) + 44;

?

Чуть-чуть не успел дописать

[Psychologist]

Большое спасибо!