У чому подібність і відмінність фізичної та імітаційної комп’ютерних моделей?

uses crt;
var a, b, c, i, n, j :integer;   
s :array[1..10000] of integer;
begin
      clrscr;
      writeln('Введите размер массива');
      read(n);
      for i:=1 to n do 
          begin 
          s[i]:=random(46)-15; 
          writeln ('s[', i,']=', s[i]); 
          end;
      a:=s[1];for i:=1 to n do 
          if s[i]>a then 
              begin 
              a:=s[i]; 
              b:=i; 
              end;
      writeln ('Наибольший элемент s[', b, ']=',a);
end.

P.S. Надеюсь на благодарность и лучший ответ.

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var n:=15;
  var a:=ArrRandom(n,2,5); a.Println;
  var k2:=a.Where(t->t=2).Count;
  Writeln('Не сдали экзамен ',k2,' чел, что составляет ',k2/n*100:0:1,'%')
end.

Пример
4 3 3 4 5 4 3 4 3 5 4 5 2 5 2
Не сдали экзамен 2 чел, что составляет 13.3%

№2

begin
  ArrRandom(7,15,40).Println.OrderBy(t->t).Println
end.

Пример
34 21 24 29 28 22 25
21 22 24 25 28 29 34

P.S. А объяснять тут нечего - все видно из текста программы.