Дана строка S. Найти символ, встречающийся в этой строке минимальное количество раз — Pascal(Паскаль)

uses crt;

var
  s, s1: string; // исходная строка и ее копия
  a: array [1 .. 100] of integer; // массив количеств каждого символа
  i, j, k: integer; // счетчики
  min, imin: integer;
  // минимальное количество раз одного знака и его порядковый номер

begin
  clrscr;
  write('s: ');
  readln(s);
  s1 := s;
  for i := 1 to length(s) do
  begin
    k := 0;
    for j := 1 to length(s1) do
      if (s[i] = s1[j]) then
      begin
        k := k + 1; // считаем сколько раз каждый символ встречается
        a[i] := k; // вводим это число в массив
        min := a[1];
        imin := 1; // присваиваем минимальное значение первому элементу
        if a[i] < min then
        begin
          min := a[i]; // находим минимальное
          imin := i; // его номер
        end;
      end;
  end;
  write('min el=', s[imin]); // выводим символ, который реже всех встречается
  readln

end.