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

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