Всимвольном массиве из 6 элементов введённых с клавиатуры найти количество запятых

Var  a: array [1..6] of char;   i,n: integer;   begin  n: =0; for i: = 1 to 6 do    begin    read( a[i]  );     if a[i] = ',' then n: = n +1;   end;   writeln(n); end.не понимаю для чего тут массив, но сделал как в

1. диапазоном.     то есть, целое число может занимать, например, один байт, два или четыре байта. число, которое занимает 1 байт( 8 бит ), может принимать значения от нуля то 255, то есть 2^8 = 256 чисел (до 255, потому что ноль - тоже число). если прибавить к однобайтному числу 256, в нём сохранится 0 (каждый раз, когда происходит выход за границу диапазона - счёт начинается с нуля). то есть, и если прибавить 513, в числе сохраница единица.     если число занимает 2 байта, его диапазон 2^16 = 32767. четыре байта - диапазон [0..4294967295]. 2. точностью хранимых в нём чисел (количество значащих разрядов), и диапазоном.     то есть, например, переменная вещественного типа может занимать в памяти 4 байта, и при этом в нём может храниться число 1.23 * 10^35. то есть в 4-х байтах целого типа можно хранить числа не больше 4294967295, а в 4-х байтах вещественного типа - в несколько десятков раз больше.     это возможно потому, что хранится не всё число, в только первые несколько значащих цифр. в 4-байтной вещественной переменной могут храниться числа [-3.4∙10³⁸ .. 3.4∙10 ³⁸], при этом количество значащих разрядов в нём всего 7-8(часть бит из этих 4 байт отводится для хранения степени 10).

Var s,s2: string; i: integer; begin write('введите строку: '); readln(s); lowercase(s); // эту строчку убрать, если казак и казак - разные слова for i: = 1 to length(s) do       s2: =s[i]+s2; if s = s2 then write('эта строка - перевёртыш') else write('данная строка не является перевёртышем') end. если меж словами один пробел, и строка не с пробела начинается: var a,i,c: integer; s: string; begin write('введите стоимость одного слова: '); readln(a); c: =0; write('введите текст телеграммы: '); readln(s); for i: = 1 to length(s) do       if s[i] = ' ' then c: =c+a; writeln('стоимость телеграммы: ',c+a); end. если слова состоят из цифр и букв, и разделены следующими символами: пробел, тире, скобки, запятая, точка с запятой, двоеточие, точка, восклицательный знак и вопросительный знак. при этом, знак минус считается знаком тире. также считается, что предложение оканчивается разделительным символом. код pascalabc.net 3.2: var a,i,c: integer; s: string; begin write('введите стоимость одного слова: '); readln(a); c: =0; write('введите текст телеграммы: '); readln(s); for i: = 1 to length(s)-1 do       if s[i]in['а'..'я','а'..'я','ё','ё','0'..'9'] then             if s[i+1]in[' ','-','(',')',',','; ',': ','.','! ','? '] then                   c: =c+a; write(c); end. пример работы программы: введите стоимость одного слова: 1 введите текст телеграммы: ! (паскаль) 1) дана строка. определить явяляется ли она перевертышем. то есть например слово казак,она и наоборот читается казак 2) определить стоимость телеграммы,если стоимомость одного слова вводится с клавиатуры. стоимость телеграммы: 32