Найти в дробном числе наибольшую цифру

var
  x:real;
  s:string;
  max,i:integer;
begin
  write('Введите число: '); readln(x);
  str(x,s);
  max:=Ord(s[1]);
  for i:=2 to length(s) do
    if s[i] in ['0'..'9'] then
      if ord(s[i])>max then
        max:=ord(s[i]);
  writeln(chr(max));
end.

var a: real;
begin
  a := 0.1;
  writeln(a - 0.1);
  readln
end.

var
  x:real;
  s:string;
  p,max,i:integer;
begin
  write('Введите число: '); readln(x);
  str(x,s);
  for i:=length(s) downto 1 do
    if (s[i]='E') or (s[i]='e') then
      begin
        p:=i;
        break;
      end;
  delete(s,p,Length(s)-p+1);
  max:=Ord(s[1]);
  for i:=2 to length(s) do
    if s[i] in ['0'..'9'] then
      if ord(s[i])>max then
        max:=ord(s[i]);
  writeln(chr(max));
  readln;
end.

var s:string;
    x: real;
    max: char;
    i, err: integer;
begin
  repeat {цикл для проверки корректности ввода}
    write('Введите число: '); readln(s);
    val(s, x, err);
    if err > 0 then writeln('Неверная запись числа, повторите')
  until err = 0;
  if s[1] = '-' then delete(s, 1, 1);
  max := s[1];
  for i := 2 to length(s) do
    if s[i] in ['e', 'E']
      then break
      else if s[i] in ['0'..'9']
        then if s[i] > max
          then max := s[i];
  write('Максимальная цифра: ', max);
  readln
end.

Function MaxDigit(s : String) : Char;
Var c : Char;
Begin
  If Length(s)>0 then
  Begin
    c:=MaxDigit(Copy(s,2,Length(s)-1));
    If s[1] in ['0'..'9'] then
      If s[1]>c then c:=s[1];
  end else c:='0';
  MaxDigit:=c;
end;
 
Begin
  Writeln(MaxDigit('3.1415926535'));
end.

program Project17;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    m,z,max2,x,i,max1:integer;
     n,p:real;
    a,l,y:Double;
  begin
    writeln('Enter number - ');
    readln(n);
    x := Trunc(n);
    x:=Abs(x);
    max1:=x mod 10;
      repeat
      i:=x mod 10;
      x:=x div 10;
      if(max1<i) then max1:=i;
      until x<1;
        y:=frac(n);
              repeat
      z:=Trunc(y*10);
      if(max2<z) then max2:=z;
      until y<1;
    if max1>max2 then  writeln('max=',max1) else writeln('max=',max2);
    Readln;
  end.

var r,dr:real;
    max,i:byte;
    ts,drts:longint;
begin
    writeln('vvedite chislo');{без проверки правильности ввода и не более 8 цифр перед запятой}
    readln(r);
    r:=abs(r);
    ts:=trunc(r);
    dr:=frac(r)+0.1e-9;{+0.000000001}
    for i:=1 to 8 do dr:=dr*10;
    drts:=trunc(dr);
    max:=0;
    for i:=1 to 8 do
     begin
      if ts mod 10 > max then max:=ts mod 10;
      if drts mod 10 > max then max:=drts mod 10;
      ts:=ts div 10;
      drts:=drts div 10
     end;
    writeln('max=',max);
end.