Дана строка, содержащая цифры и строчные латинские буквы. Если буквы в строке упорядочены по алфавиту, то вывести 0; в противном

[nadyaH]

Дана строка, содержащая цифры и строчные латинские буквы. Если буквы в строке упорядочены по алфавиту, то вывести 0; в противном случае вывести номер первого символа строки,нарушающего алфавитный порядок.
(делфи 7)
нужна помощь в исправлении ошибок .

var
Dano:string; 
Otvet:integer;
N1,N:integer; 
i:integer;
begin
DAno:=EDIT1.Text;
otvet:=0;
N:=0;
N1:=0;
for i:=1 to length(Dano) do
begin
case Dano[i] of
'A':n1:=1;
'B':n1:=2;
'C':n1:=3;
'D':n1:=4;
'E':n1:=5;
'F':n1:=6;
'G':n1:=7;
'H':n1:=8;
'I':n1:=9;
'J':n1:=10;
'K':n1:=11;
'L':n1:=12;
'M':n1:=13;
'N':n1:=14;
'O':n1:=15;
'P':n1:=16;
'Q':n1:=17;
'R':n1:=18;
'S':n1:=19;
'T':n1:=20;
'U':n1:=21;
'V':n1:=22;
'W':n1:=23;
'X':n1:=24;
'Y':n1:=25;
'Z':n1:=26;
end;
if N=0 then N:=N1;
if (N-N1)>0 then Begin Otvet:=i; break;end
else N:=N1;
end;
EDIT2.Text:=INTTOSTR(Otvet);
end;END.

[Serge_Bliznykov]

так устроит?

var
  Dano:string; 
  Otvet:integer;
  i:integer;
begin
  Dano:=EDIT1.Text;
  otvet:=0;
  for i:=1 to length(Dano)-1 do
  begin
   if Dano[i]<Dano[i+1]  then Begin Otvet:=i+1; break; end
   else N:=N1;
  end;
  EDIT2.Text:=INTTOSTR(Otvet);
end;

[Stilet]

c:=#0;
for i:=1 to Length(dano) do begin
 if dano[i] in ['A'..'z'] then begin
  if dano[i]>c then c:=dano[i] else begin write(i);break;end;
 end;
end;

Где c:char.

Идея ясна?

Upd: Цифры тоже чтоле должны участвовать в проверке?

[Poma][a]

else N:=N1;

Это фича или баг? (Вангую осталось со времен кода ТС)

['A'..'z']

А если я решу побаловаться [, \, ], ^, - ?
Уж лучше ['A'..'Z', 'a'..'z'] или вообще if UpCase (dano[i]) in ['A'..'Z'] then

ТС, не забудьте вывести 0 в варианте Виталия!

[Serge_Bliznykov]

Сообщение от Poma][a

Это фича или баг? (Вангую осталось со времен кода ТС)

Вангование прошло успешно. Вы правы, этот рудимент остался от старого кода.. И, разумеется, от так же нужен, как человеку хвост!
Его надо выкинуть.
но, хуже другое.
насколько я понимаю, я ещё и условие перепутал.надо так:

var
  Dano:string; 
  Otvet:integer;
  i:integer;
begin
  Dano:=EDIT1.Text;
  otvet:=0;
  for i:=1 to length(Dano)-1 do
     if Dano[i]>Dano[i+1]  then begin Otvet:=i+1; break; end
  EDIT2.Text := IntToStr(Otvet);
end;

[nadyaH]

не правильно программа работает.
Если буквы в строке упорядочены по алфавиту, то вывести 0; в противном случае вывести номер первого символа строки,нарушающего алфавитный порядок.

[Poma][a]

не правильно программа работает.

Прув?
Приведите пример теста, при котором программа работает не правильно!

[nadyaH]

вводим :abct
выводит: 0
a должен выводить номер первого символа строки,нарушающего алфавитный порядок.

[Аватар]

abct

И где в строке нарушение порядка алфавита? az тоже упорядочены по алфавиту

a < b < c < t..
Именно это называется алфавитный порядок!

Думаю в условиях этой задачки abbccc тоже

[Poma][a]

Господи...
a < b < c < t..
Именно это называется алфавитный порядок!

Если Вы проверить является ли данная строка алфавитом, то есть 2 варианта..

const
	abc = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
	
var
	s : string;
	i : Integer;
begin
	ReadLn (s);
	
	i := Length(s);
	while Pos (s, abc) <> 0 do begin
		Delete (s, Length(s), 1); Dec (i)
	end;
	
	WriteLn (Ord (i = Length(s))*i)
end.

Банальный..

i := 0;
while (s[i+1] = Succ(s[i+2])) and (i < Length(s)-1) do
     Inc (i);

Думаю в условиях этой задачки abbccc тоже

Совершенно верно.. Мой косяк.. Спасибо!