Люди задание по инфе. К понедельнику надо сдать

Принципы работы современной компьютерной мыши были сформулированы и впервые реализованы в 1940-ых годах века – устройство управления, использующее шар для боулинга в качестве элемента для определения координат объекта в режиме реального времени. Идея о создании мыши возникла у ученого Дугласа Энгельбарта еще в конце 50-х г.г.Её создателем стал Билл Инглиш, а Джефф Рулифсон написал программное обеспечение, необходимое для демонстрации технических возможностей мыши..Функциональность мышки обеспечивалась двумя дисками, встроенными взаимно перпендикулярно – их перемещение в четырех направлениях полностью соответствовало изменению координат объекта в двумерной системе координат.Компьютерная мышь сегодня – незаменимое устройство, значительно превосходящее известные сегодня аналоги по всем характеристикам.

Program spos;
uses crt;
var
numb:array [1..100] of byte; // для последовательности чисел
i,f:integer; //счетчик и переменная в качестве флага
begin
randomize;
f:=0;
for i:=1 to 100 do numb[i]:=random(101);// задает последовательность

for i:=1 to 100 do
begin
write(',',numb[i]); // вывод на экран последовательность(можно удалить)
if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0
end;
if f=0 then writeln('Yes') else writeln('No');

end.

program spos;
uses crt;
var
numb:array [1..100] of byte; // для последовательности чисел
i,f:integer; //счетчик и переменная в качестве флага
begin
randomize;
f:=0;
for i:=1 to 100 do begin
numb[i]:=random(101);// задает последовательность
write(' ',numb[i]);//вывод на экран, можно удалить
end;
writeln;
i:=0;
repeat
i:=i+1;
if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0
until i<100;
if f=0 then writeln('Yes') else writeln('No');

end.