Натуральные и целые числа

uses crt;
function Cifry(n:longint):boolean;
var m:longint;
    a,b:byte;
    f:boolean;
begin
a:=n mod 10;
m:=n div 10;
f:=true;
while (m>0)and f do
 begin
  b:=m mod 10;
  if b<=a then f:=false;
  a:=b;
  m:=m div 10;
 end;
Cifry:=f;
end;
var m,i:longint;
begin
clrscr;
repeat{с однозначными непонятно, выкинем их}
write('Введите натуральное число не меньше 11 m=');
readln(m);
until m>9;
for i:=10 to m-1 do
if Cifry(i) then write(i,' ');
readln
end.

uses crt;
var n,i,j,k:integer;
    a,mx:real;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
k:=0;
writeln('Введите ',n,' положительных и отрицательных вещественных чисел:');
readln(a);{первое число}
if a<0 then{если оно отрицательно, пока это макс.}
 begin
  mx:=a;
  for i:=2 to n do{вводим остальные}
   begin
    readln(a);
    if (a<0)and(a>mx)then  mx:=a;{выбираем самое большое}
   end;
 end
else {если первое не отрицательное, будем искать первое дальше}
 begin
  i:=1;
  while (a>=0)and(i<n) do{пока положительные, вперед}
   begin
    i:=i+1;
    readln(a);
   end;
  if i=n then{дошли до конца}
   begin
    if a<0 then mx:=a{последнее отрицательное-максимум}
    else{положительное}
     begin
      k:=1; {фиксируем что нет отрицательных}
      write('Вы не ввели ни одного отрицательного числа!')
     end
   end
  else{если отрицательное не последнее}
   begin
    mx:=a;{пока оно макс.}
    for j:=i+1 to n do{смотрим до конца}
     begin
      readln(a);
      if (a<0)and(a>mx)then  mx:=a;{выбираем максимальное}
     end;
   end;
 end;
if k=0 then write('Наибольшее отрицательное число=',mx:0:2);
readln
end.