Запрограммировать светодиодную шкалу, чтобы по очереди загорались светодиоды

1) крик 
Первоначально люди использовали лишь средства ближней связи — речь, слух, зрение. О надвигающейся опасности можно было предупредить криком, правда, услышать его могли на расстоянии всего нескольких сот метров. 

2) барабан 
Звук барабана, особенно популярный среди африканских племен, был донести сигнал тревоги уже несколько километров. 

3) интернет 
В 1969 году в США начала функционировать первая в компьютерная сеть. Она положила начало формированию всемирной компьютерной сети Интернет (Internet), огни миллионов компьютеров, включённых в Интернет, образуют единую информационную среду, открывающую любому человеку доступ ко всему информационному богатству человечества. 

4) передатчик 
Рассмотрим несколько ситуаций, связанных с передачей информации. 
При переходе дороги на регулируемом перекрёстке вы (приёмник информации) воспринимаете зелёный сигнал светофора (источника информации) как разрешение перейти дорогу. 

5) радиосвязь 
В 1895 году русский изобретатель А. С. Попов открыв радиосвязь, не требующую проводов и кабелей. Вначале радиосвязь мало чем отличалась от телеграфа. 

6) морзе 
До середины 20-х годов XX века использовался специальный помехоустойчивый код Морзе. Со временем были изобретены различные помехозащитной записи звука и появилась звуковая радиосвязь, в человеческий быт вошли радиоприёмники. Сегодня существует очень много мощных радиостанций. Чтобы не испытывать взаимных помех, они работают на разных радиоволнах — длинных, средних, коротких, ультракоротких и дециметровых. Но до сих пор в экстремальных ситуациях, когда существуют сильные природные помехи, используют радиотелеграфный передачи информации. 

7) приёмник 
В передаче информации всегда участвуют две стороны: тот, кто передаёт информацию (источник информации) , и тот, кто её получает (приёмник информации) . 

8) телевидение

Завдання №2

var i,j,k,shlth:integer;    
      letter:char;
      name,minword,s1,x,x1:string;    
      f1,f2:text;    
      f:boolean;    
      arr:array [1..100] of string;
label 1;  

begin
writeln('Введіть імя файлу введення:');
readln(name);
assign(f1,name); reset(f1);
writeln('Введіть імя файлу виводу:');
readln(name);
assign(f2,name); rewrite(f2);
writeln('Введіть букву для пошуку:');
readln(letter);
letter:=lowercase(letter);
 j:=1;  

while not eof(f1) do
begin  
readln(f1,x1);  
x:=lowercase(x1);  
i:=1;  
while (i<=length(x)) and (x[i] <> letter) do  
 begin    
  while (i<=length(x)) and (x[i] = ' ') do inc(i);    
  if (i<=length(x)) and (x[i] <> letter) then      
   while (i<=length(x)) and (x[i] <> ' ') do inc(i);  
 end;    
 if i>length(x) then
  begin
   writeln(f2,x1);
   arr[j]:=x1;  
   inc(j);  
  end;
end;  

f:=false;
for k:=1 to j do
begin  
 i:=1;  
 while (i<=length(arr[k])) and (arr[k][i] = ' ') and not f do inc(i);
 if i<length(arr[k])+1 then begin f:=true; goto 1; end;
end;  

1: if not f then writeln('У файлі f2 немає слова, відповідного умові вибору') else
begin
 while (arr[k][i]<>' ') and (i<=length(arr[k])) do
  begin
  minword:=minword+arr[k][i];
  inc(i);
  end;  
 for k:=1 to j do
 begin  
  i:=1;  
  while i<=length(arr[k]) do  
   begin   
   while (i<=length(arr[k])) and (arr[k][i] = ' ') do inc(i);
   if i<=length(arr[k]) then begin shlth:=1; s1:=arr[k][i]; end;
   while (i<=length(arr[k])) and (arr[k][i] <> ' ') do begin s1:=s1+arr[k][i]; inc(i); inc(shlth);  end;
   if shlth<length(minword) then minword:=s1;
   end;
 end;
writeln('Найкоротша слово у файлі f2: ',minword);
end;    
 
close(f1); close(f2);
end.