Втексте всего 3200 символов. найти объем текста если для записи текста использовался 256 символьный алфавит

256 - мощность алфавита. 8 бит = 1 байт - вес одного символа. k (количество символов всего) * i (вес одного символа) = i (информационный объём текста) i = 3200 символов * 1 байт = 3200 байт

Var  n: string;   a: integer; procedure chet(n: string; var a: integer); begin while pos('  ',n)< > 0 do       //пока в строке есть пробелы        begin         a: =a+1;               //к счетчику пробелов + 1         delete(n,pos('',n),1);       //удалить текущий пробел       end; end; begin   readln(n);         // вводим строку     a: =0;                 //обнуляем счетчик   chet(n,a)           //считаем пробелы   writeln(a);         //выводим кол-во пробелов end.       

Var s: string; i, j, k: integer; a: array [1..256] of char; begin readln(s); for i: = 1 to length(s) do begin     for j: = 1 to k do         if a[j] = s[i] then begin             writeln('есть');             exit;             end;     a[i]: = s[i];     inc(k);       end; writeln('нет'); end. попрошу отметить, как лучшее решение