Найти максимальную и минимальную цифры числа. Верно ли, что данное число заканчивается на них?

Нужна программа в турбо паскаль

var a: array[0 ... 9] of integer;

s: string;

i, j: integer;

begin

for i:=0 to 9 do a[i]:=0;

write ('число: ') ; readln (s) ;

for i:=1 to length (s) do inc (a[ord (s[i]) - 48]) ;

i:=9;

while a[i]=0 do i:=i-1;

j:=i;

i:=0;

while a[i]=0 do i:=i+1;

if (chr (j+48) + chr (i+48) = s[length (s) - 1]+s[length (s) ]) or

(chr (i+48) + chr (j+48) = s[length (s) - 1]+s[length (s) ])

then writeln ('Да')

else writeln ('Нет') ;

end.

число: 18245390

Да

число: 1205483 Нет