Определить количество строк в текстовом файле, в которых есть символ «! ». напишите плз код на =3

//Pascal ABC.NET Версия 2.2 Сборка 790
var f:text;
a,i,n:integer;
ars:array of string;
begin;
assign(f,'text.txt');
reset(f);
while not Eof(f) do
begin;
inc(n);
setlength(ars,n+1);
readln(f,ars[n]);
end;
close(f);
for i:=1 to n do
if pos('!',ars[i])<>0 then a:=a+1;
writeln(a);
end.

Пример text.txt:
890 823 23 232 23
436434!

346643
21
Пример вывода:
1

Принципы работы :

Работа датчика движения основана на анализе волн различных типов (акустических, оптических или радиоволн), поступающих на датчик из окружающей среды. В зависимости от типа используемого излучения датчики движения делятся на:

инфракрасные,

ультразвуковые,

фотоэлектрические, в которых применяется видимый свет,

микроволновые,

томографические, где используются радиоволны.

В зависимости от того, излучает ли сенсор сам эти волны и анализирует их после отражения или только получает волны извне, датчики делятся на:

активные;

пассивные;

комбинированные, в таких датчиках одна часть датчика посылает волны, а удалённая от неё вторая часть получает их.

Большинство существующих датчиков движения представляет собой некоторую комбинацию физических принципов работы, причём датчики одного типа волн, как правило, используют один механизм для их создания и обработки.

Наиболее распространенные датчики:

пассивные инфракрасные датчики (PIR), самые доступные и распространенные датчики движения в принципе[2], инфракрасные датчики составляют около 50 % применяемых по всему миру сенсоров движения[3];

активные ультразвуковые, микроволновые и томографические датчики;

комбинированные фотоэлектрические и инфракрасные датчики.

Каждый принцип имеет свои недостатки, иногда допуская ложные тревоги и несрабатывания в нужных случаях. Чтобы снизить вероятность ложного срабатывания, датчики иногда объединяют две технологии в одном устройстве (например, инфракрасная и ультразвуковая). Но это, в свою очередь, повышает уязвимость датчика, поскольку он становится менее надёжным и может в результате не сработать, даже когда должен.

1.)
16 = 2^4
Получается, что рисунок p2.bmp - четырехразрядный, т.е. 1 пиксель занимает 4 бит памяти. 24/4=6. ответ: в 6 раз.

2.)
64*512=32768 - кол-во пикселей в изображении.
32 Кбайт = 32768 байт.
32768/32768=1 байт = 8 бит - память, занимаемая 1 пикселем.
2^8=256. ответ: 256 цветов.

3.)
25*30 см = 10*12 дюймов = 120 дюймов^2
10*12*300*300*3=32400000 байт = 31640 Кбайт = 30 Мбайт.
ответ: 30 Мбайт.

4.)
65536 = 2^16
1 пиксель занимает 16 бит = 2 байта.
1280*1024*2 = 2621440 байт = 2560 Кбайт = 2,5 Мбайт.
ответ: 2,5 Мбайт.