Дан текстовый файл, содержащий целые числа. найти: количество чисел в файле; максимальный элемент в файле, максимальные элементы в каждой строке файла

{автор:       рудницкий в. л. ограничения: последовательность не может быть длинее nn. откуда:       олимпиада, kz, 2016.} const  nn = 10000; var  a   : array [1 .. nn] of integer;   i, j, d, n: integer; begin   write('введите длину массива: '); readln(n);   writeln('введите массив чисел через пробел: ');   for i : = 1 to n do    read( a[i] );   { удаляем повторы чисел }   for i : = 1 to n-1 do     for j : = i+1 to n do       if a[i] = a[j] then a[j] : = 0;   { создаем последовательность заполняя не нужные числа нулями }   for i : = 2 to n do    if ( a[i-1] > a[i] ) and ( a[i] < > 0 ) then a[i] : = 0;   { суммируем не нулевые элементы }   d : = 0;   for i : = 1 to n do    if a[i] < > 0 then d : = d + 1;   writeln('максимальная длинна массива после удалений: ',d); end.

Program example; var m : integer; begin  m: =0;   writeln('номер месяца');   read(m);   case m of  1: writeln ('февраль');   2: writeln ('март');   3: writeln ('апрель');   4: writeln ('май');   5: writeln ('июнь');   6: writeln ('июль');   7: writeln ('август');   8: writeln ('сентябрь');   9: writeln ('октябрь');   10: writeln ('ноябрь');   11: writeln ('декабрь');   12: writeln ('январь');   else writeln ('это число не является цифрой');   end; end.