ответить, я не знаю правильно написала или нет

•Приняты (младшая группа) •Илья Вишневский 47 •Андрей Шереметьев 93 •Василий Шульц 53 •Егор Золотарев 64 •Владимир Ефимов 76 •Георгий Троицкий 25 •Владислав Сулимов 36 •Леонид Пономарёв 73 •Семён Туманов 91 •Филипп Мухин 49 •Роман Беляев 16 •Марк Фролов 84 Младшая группа «Акулы»   пн ср сб      14:00-16:30
Средняя группа   «Ягуары»  вт чт пт       15:00-17:45
Старшая группа   «Львы»     пн пт вс       15:00-17:15
•Приняты (младшая группа)
•Илья Вишневский 47
•Андрей Шереметьев 93
•Василий Шульц 53
•Егор Золотарев 64
•Владимир Ефимов 76
•Георгий Троицкий 25
•Владислав Сулимов 36
•Леонид Пономарёв 73
•Семён Туманов 91
•Филипп Мухин 49
•Роман Беляев 16
•Марк Фролов 84
•Приняты (средняя группа)
•Святослав Поляков 34
•Денис Никифоров 88
•Дмитрий Щербаков 17
•Сергей Жуков 23
•Артем Игнатьев 98
•Никита Трофимов 26
•Егор Карпов 9
•Александр Назаров 3
•Данил Воронин 11
•Владимир Титов 2
•Максим Абрамов 61
•Артур Соболев 13
Приняты (старшая группа)
Захар Прокофьев 53
Евгений Шмидт 94
Павел Фомин 82
Юрий Гаврилов 42
Пётр Киселёв 47

2)
USES CRT;
VAR A:array[0..200] of integer;   
       i,max,s:integer;
BEGIN
CLRSCR;
Randomize;   
   Writeln('Дан массив:'); 
   for i:=0 to 200 do     
      begin         
         A[i]:=-100+random(150);         
         Write(A[i],'   ');     
      end;

       s:=0;   
       max:=A[0];

       for i:=0 to 200 do     
          begin         
             if A[i] > max then max:=A[i];         
             if A[i]>=0 then s:=s+1;     
          end;   
       
        Writeln;   
        Writeln('Максимальный элемент массива  = ', max);   
        Writeln('Кол-во положительных элементов = ',s);
READLN;
END.