Найти все числа, у которых старшая значащая десятичная цифра есть 9

for i:=1 to n do
   begin
    str(a[i],s);
    if ((s[1]<>'0')and(s[1]<>'-')and(s[1]='9')) 
    or ((s[1]='-')and(s[2]='9')) then write(a[i]:5:2);
  end;

Uses crt;
 Var n,i:byte;
     s:array [byte] of real;
     a:array [byte] of real;
 begin
  Randomize;
  clrscr;
  write('Vvedite kol-vo elementov massiva:');
  readln(n);
  writeln('Masiv:');
 for i:=1 to n do
  begin
   str(a[i],s);
   if ((s[1]<>'0')and(s[1]<>'-')ans(s[1]='9'))
   or((s[1]='-')and(s[2]='9'))then write(a[i]:5:2);
  end;
 end.

var i:integer;
i:=9;
writeln(i);

Var s : string;
...
for i:=1 to n do
begin
str(a[i],s);
if (s[1]='9') or ((s[1]='-') and (s[2]='9')) then writeln(a[i]:5:2);
...

Uses crt;
function Sept(x:real):boolean;
var n,m,d:integer;
    r:real;
begin
if x>1 then
   begin
     n:=abs(trunc(x));
     while n>0 do
       begin
         m:=n mod 10;
         n:=n div 10;
       end;
     d:=m;
   end
else if x<1 then
     begin
       r:=abs(frac(x));
       while r <1 do
       r:=r*10;
       d:=trunc(r);
     end;
if d=9 then Sept:=true
else Sept:=false;
end;
Var n,i:byte;
a:array [byte] of real;
begin
clrscr;
write('Vvedite kol-vo elementov massiva:');
readln(n);
writeln('Masiv:');
for i:=1 to n do
read(a[i]);
readln;
for i:=1 to n do
if Sept(a[i]) then
writeln(a[i]:4:8);
readln
end.