Написать программу, выводящую на экран информацию по заданному образцу: № 1.123456789100000009100000009100000009100000009123456789​

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. попрошу отметить, как лучшее решение