Когда полезно использовать анимацию?

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

begin
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(5,4,-5,20);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('a) ',a.ElementsByRow
      .Where(t->t.Between(0,5) or t.Between(5,15)).Sum);
  Writeln('б) ',a.Row(2).Min);
  var b:=a.ElementsByRow.ToArray; Print('в)'); b.Println;
  Writeln('г) ',a.ElementsByRow.TakeLast(10).Sum)
end.

Пример
*** Исходная матрица ***
  19  -2  17  -1
   4  10   9   9
   8  15  -1  -1
  -3  12  -1  20
  10   3  16  13

a) 93
б) -1
в) 19 -2 17 -1 4 10 9 9 8 15 -1 -1 -3 12 -1 20 10 3 16 13
г) 68

//Pascal
//Файл fileText.txt должен быть в папке с программой

const
  Vowels = ['e', 'u', 'i', 'o', 'a', 'y', 'E', 'U', 'I', 'O', 'A', 'Y'];
var
  t: text;
  s: char;
  n, min, mult, mult2, count, count2: integer;
begin
  Assign(t, 'fileText.txt');
  Reset(t);
  n := 0; min := 0; mult := 1; count := 0;
  while not eof(t) do
  begin
    count := count + 1;
    while not eoln(t) do
    begin
      read(t, s);
      if s in Vowels then
        inc(n);
      if s in ['0' .. '9'] then
        mult := mult * (Ord(s) - 48);
    end;
    if n > min then
    begin
      min := n;
      mult2 := mult;
      mult := 1;
      count2 := count;
    end;
    readln(t);
    n := 0;
    mult := 1;
  end;
  Close(t);
  write(count2, ' строка. ');
  write('Произведение = ', mult2, '. ');
  writeln('Гласных = ', min);
  readln;
end.