Составь программу, используя оператор ветвления

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.

Я думаю,в пользовательском интерфейс компьютера будущего,будет управление голосовыми командами,а так же зрительными командами и движением рук.Не будут нужны старомодные мышки,клавиатуры и прочее.Что бы что-то перелистывать,искать и так далее,нужны будут только:руки,глаза и речь.Для доступа в систему возможно использование отпечатков пальцев или сетчатки.Будут сильные уровни защиты,информация не сможет утечь.Так же возможно изобретение новых вирусов.Например вирус который блокируют движение руками или голосовое управление.Так же будет придумано новые антивирусное ПО,которые будет удалять эти вирусы.

P.S-Исправь грамматические ошибки если,я не силен в русском языке.Смысл понятен,если что-то надо-добавь.