<span>строку
i:=1;
нужно поменять на
i:=n; (раз уж вы начинаете считать с конца)
а строки
</span>while (i>=0) and (a[i]<=0) do i:=i-1;
<span>if i<0 then writeln(0)
</span>на
while (i>0) and (a[i]<=0) do i:=i-1;
<span>if i=0 then writeln(0) (поскольку нет 0-ого элемента массива, и может выдаваться ошибка)</span>
<span>
</span>
ё вне алфавита, поэтому её исключаем. Т.к. Й-это 98, расставляем соответсвующие коды для остальных букв (раставлено во вложении)
<span>А6 - Ч
97 - И
9Е - П
А0 - С
АА - Ы
Ответ: ЧИПСЫ </span>
Не забудьте поблагодарить за решение и отметить его как лучшее, если вам понравился ответ
Readln(s);
s1:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
s2:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
s3:=s;
if(s1>s2)and(s1>s3)then writeln(s1)
else if(s2>s1)and(s2>s3)then writeln(s2)
else writeln(s3);