Задание 1. Файл последовательного доступа. Файл вмещает несколько рядков текста. Перепиши в другой файл те радки данного файла, что начинается с буквы "н" и заканчивается буквой "е"..
Задание 2.
Файл последовательного доступа. Файл содержит сведения о детях групп детсада: имя, пол, рост, вес, дата рождения. Найти данные о самом высоком мальчике и сумую легкую девочку.

pascalabc.net

begin

  // 1

  var a : = matrrandom(5, 6, -10, 10);

  a.println(4);

  var (kn, kz, kp) : = (0, 0, 0);

  for var i : = 0 to a.rowcount - 1 do

    for var j : = 0 to a.colcount - 1 do

      if a[i, j] > 0 then

        kp += 1

      else if a[i, j] = 0 then

        kz += 1

      else

        kn += 1;

  println('отрицательных', kn, ' нулевых', kz,

      ' положительных', kp);

  // 2

  var b : = matrrandom(5, 6, 1, 100);

  b.println(5);

  var s : = b.elementswithindices;

  var imin : = s.minby(p -> p[0]);

  var imax : = s.maxby(p -> p[0]);

  writeln('индексы минимального элемента [',

      imin[1] + 1, ',', imin[2] + 1, ']');

  writeln('индексы максимального элемента [',

      imax[1] + 1, ',', imax[2] + 1, ']');

  // 3

  var c : = matrrandom(5, 9, -3, 5);

  c.println(3);

  print('количество положительных по строкам: ');

  c.rows.select(r -> r.count(p -> p >

end.