Can somebody help me? What's the problem?


program BgrSandro;
type t = 'A'..'Z';
const andro = 'andro';
      lowcs=['a'..'z'];
var
  i,j,c,min: integer;
  s: string;
  set1: set of t;
Begin
  set1:=['A'..'Z'] - ['A','N','D','R','O'];
  readln(s);
  min:=20;
  for i:=1 to (Length(s)-5) do begin
      c:=0;
      if (s[i]<>'S') then begin
        inc(c);
        if (s[i]<>'s') and (s[i] in lowcs) then inc(c)
      end;
      for j:=1 to 5 do begin
        if (s[i+j]<>andro[j]) then begin
          inc(c);
          if (s[i+j] in set1) then inc(c)
        end
      end;
      if (c<min) then min:=c;
  end;
  writeln(min*5);
end.

Edited by author 21.04.2012 03:52