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

[nadyaH]

до меня допёрло. программа правильно работает. спасибо =)

[StalKz]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
Dano:string;
Otvet:integer;
N1,N:integer;
edit1,edit2:string;
i:integer;
begin
DAno:=EDIT1;
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:=INTTOSTR(Otvet);

end.

Не знаю что ты хотел тут зделать... Ошибки я поиспровлял ,програма нормально запускается...

[nadyaH]

var
  Dano:string; 
  Otvet:integer;
  i:integer;
  N,N1: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.

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