Составить программу вывода самой большой цифры в записи заданного числа

var
m,s: string;
x,i: integer;
begin
writeln('Введите строку');
readln(m);
x:=1;
for i:=1 to length(m) do
    begin
    if m[i]<>' '
       then
           s:=s+m[i]
       else
           begin
           if s='hello'
              then delete(m,x,i-x+1);
           x:=i;
           s:='';
           end;
    end;
writeln(m);
end.

program Project1;
 
var
  Dig, DigMax, Num : Integer;
  S : String;
begin
  repeat
    (*Заполнение и распечатка массива.*)
    Writeln('Задайте целое число:');
    Readln(Num);
    (*Берём число без знака.*)
    Num := Abs(Num);
 
    DigMax := 0;
    repeat
      Dig := Num mod 10;
      Num := Num div 10;
      if Dig > DigMax then DigMax := Dig;
    until Num = 0;
 
    Writeln('Самой большой цифрой в десятичной записи числа является цифра:');
    Writeln(DigMax);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

program Project1;
 
const
  //Множество разделителей.
  D = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
  //Множество цифр.
  Dd = ['0'..'9'];
var
  S, StrNum : String;
  i, Pos1, Len, Num, Err, Sum : Integer;
  IsNum : Boolean;
begin
  repeat
    //Исходный текст.
    Writeln('Задайте текст:');
    Readln(S);
 
    Len := Length(S);
    Pos1 := 0;
    Sum := 0;
    IsNum := False;
    for i := 1 to Len do begin
      //Пропускаем разделители.
      if S[i] in D then Continue;
      //Отслеживаем начало слова (слово может быть из букв и цифр).
      if (i = 1) or (S[i - 1] in D) then begin
        Pos1 := i;
        IsNum := True;
      end;
      //Если встретился символ, не являющийся цифрой - это не число.
      if not (S[i] in Dd) then IsNum := False;
      //Отслеживаем конец чисел - т. е. тех слов, которые содержат только цифры.
      if IsNum and ( (i = Len) or (S[i + 1] in D) ) then begin
        //Учитываем очередное найденное число в сумме.
        StrNum := Copy(S, Pos1, i - Pos1 + 1);
        Val(StrNum, Num, Err);
        Sum := Sum + Num;
      end;
    end;
 
    //Показываем результат.
    Writeln('Сумма чисел в строке:');
    Writeln(Sum);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.