Строковый тип

[DrDre]

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

[Жека-старший]

program pr1;
uses crt;
var s:string; a:array[1..100] of byte; b:array[1..100] of char; i,j,n,min:byte; pr:boolean;
begin
  writeln('Vvedite stroku');
  readln(s);
  n:=0;
  For i:=1 to Length(s) do
  begin
    pr:=false;
    for j:=1 to i-1 do
    if s[i]=s[j] then begin
                         pr:=true;
                         break;
                      end;
    if pr then continue;
    inc(n);
    a[n]:=1;
    b[n]:=s[i];
    for j:=i+1 to Length(s) do
    if s[i]=s[j] then inc(a[n]);
  end;
  min:=1;
  for i:=1 to n do
  begin
   writeln('Символ- ',b[i],'. Встречается- ',a[i]);//для вывода, типа проверки
   if a[i]<a[min] then min:=i;
  end;
  writeln('Минимальное количество раз, встречается символ- "',b[min],'-  ',a[min]);
end.