Строковые данные

[Динара Б]

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

[Valio]

ну и какие вопросы?

[Динара Б]

Помогите пожулуйста, завтра практику сдавать, до 5 вот этой одной задачи не хватает

[Alex11223]

Ну так расскажите что у вас не получается, задайте вопросы.

[Динара Б]

Я здесь, разобраться не могу, не пойму, запуталась(((

[Alex11223]

В чем именно вы не можете разобраться и запутались?)

[Динара Б]

во всем, строку, создаю, а потом, все...

[Valio]

Сообщение от Динара Б

во всем, строку, создаю, а потом, все...

Кароче хватит нам мозги е***ь.
Или задавайте конкретные вопросы, приводите свои наработки и пр., или идите создавайте тему в разделе Фриланс.

[Alex11223]

Можно даже во фриланс не ходить) Вот .ехе, дам исходник за 50р. вебмани или ЯД.

[ByAlex]

Ладно, пожалеем девушку, вот -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  temp,str:string;
  i:integer;
  check:boolean=false;
begin
  write('Vvedite stroku: ');
  read(str);
  temp:='a';
  for i := 1 to length(str) do
  begin
    if str[i] in ['a'..'z'] then
    begin
      if str[i]>=temp then
        temp:=str[i]
      else
      begin
        check:=true;
        break;
      end;
    end;
  end;
  if check then
    writeln('Symbol = ',temp)
  else writeln('0');
  readln;
  readln;
end.