Вот так я это сделал:
program posled;
uses crt;
var a:string;
i,j,k:integer;
b:byte;
begin
clrscr;
writeln('BBEDITE CTPOKY:');
readln (a);
j:=length (a);
for i:=1 to j do
begin
if a[i]<a[i+1] then b:=1
end;
if b=1 then
writeln ('DA') else writeln ('HET');
readln;
end.
Но не понимаю в чём ошибка - программа работает некорректно... Помогите плиз разобраться..