6. Используя таблицу ASCII переведите в десятичный код пословицу: “Beauty is in the eye of the beholder”

1) У современного персонального компьютера в десять раз больше мощности, чем в свое время потребовалось, чтобы запустить и посадить человека на Луну.
2) Объема CD-диска хватает на 72 минуты звучания музыки. Именно такую ​​продолжительность должна девятая симфония Бетховена, на которую ориентировались создатели нового продукта.
3) Нам достаточно доли секунды, чтобы оценить качество сайта, на который мы зашли.
4) Китайским геймерам запрещено играть в игры, которые пропагандируют убийства, — например, в «GTA» или «Postal». Не жалуют в Поднебесной и хакеров: им грозят серьезные тюремные сроки, а в 1998 году парочка взломщиков даже была приговорена к высшей мере наказания.
5) Хакеров, конечно, не стоит защищать — преступники информационного пространства. Но также не забываем о себе любимых. Некоторые аккаунты, электронные адреса и другие личные страницы интернет-пространства так и просятся, чтобы их сломали! Самыми популярными паролями считаются цифры в возрастающем или убывающем порядке, а также дата, месяц и год рождения. Многие пользователи настолько беспечны, что даже вводят в окнах «логин» и «пароль» один и тот же набор символов.

uses crt;
var a, b, c, n, i, j :integer;   
s :array [1..10000] of integer;
begin
   clrscr;
   writeln ('Vvedite razmer masiva');
   read (n);
   writeln  ('Vvedite chislo X');
   read (a);
   for i:=1 to n do 
   begin 
      writeln ('Vvedit s[', i, '] element'); 
      read (s[i]); 
   end;
   for i:=1 to n do 
      for j:=1 to n-1 do 
         if s[j]<s[j+1] then   
         begin   
            b:=s[j];   
            s[j]:=s[j+1];   
            s[j+1]:=b;   
         end;
   for i:=1 to n do 
   begin 
      write (s[i], ' '); 
      if s[i]=a then inc (c); 
   end;
writeln;
if c>0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet');
end.

P.S. Надеюсь на благодарность и лучший ответ.