Строка: найти символ и вывести его на экран, который встречается в ней реже всех остальных...

program MinCnt;
 
uses crt;
var s, p, c, q: string;
    i, j, k: integer;
begin
writeln('Input string:');
readln(s); //ввод строки
if length(s) = 0 then begin //проверка строки
  writeln('String is empty!'); //ошибка - введена пустая строка
  readln; //ждём реакции пользователя
  exit; //выход из программы
end;
k := length(s); //пока считаем, что строка заполнена каким-то одним символом
while length(s) > 0 do begin
  c := copy(s, 1, 1); //первый символ строки принимаем за текущий образец
  j := 0; //чистим счётчик числа вхождений символа в строку
  p := ''; //чистим буфер строки
  for i := 1 to length(s) do if s[i] <> c then p := p + s[i]
           //отличается, запоминаем символ в буфере
                                          else j := j + 1;
           //не отличается, инкремент текущего счётчика, сам символ игнорируем
if j <= k then begin
  q := c; //пока этот символ реже всех встретился
  k := j; //j раз в строке
end;
s := p; //строка s теперь без какого-то символа;
        //да, мы разрушаем строку s, ну и что?
        //Если она дорога кому-то, как память,
        //пусть он её и сохранит куда-нибудь.
end;
writeln('Symbol: ', q); //выводим полученный символ
writeln('Count : ', k); //и число его вхождений в строку
readln; //ждём реакции пользователя    
end.