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

var num:word;
    dig,t:byte;
begin
t:=0;
read(num);
while num<>0 do
  begin
    dig:=num mod 10;
    if dig>t then t:=dig;
    num:=num div 10;
  end;
write(t);
end.

const n=14;
var arr:array[1..n] of real;
    i,c:byte;
    a,t:real;
begin
t:=1; c:=0;
writeln('input array');
for i:=1 to n do
  read(arr[i]);
writeln('input a');
read(a);
for i:=1 to n do
  if arr[i]<a then
    begin
      t:=t*arr[i];
      inc(c);
    end;
if c=0 then write('error')
else 
  begin
     t:=exp((1/c)*ln(t));
     write(t:6:3);
  end;
end.

const d1=0.1;
      d2=1.7;
      h=0.2;
      a=0.2;
var x,y:real;
begin
x:=d1;
while d2-x+h>0 do
  begin
    if x<=1 then   y:=2*a*cos(x)+exp(x)
    else y:=a*ln(x)/ln(10)+exp((1/3)*ln(abs(sin(x))))*(sin(x)/abs(sin(x)));
    writeln(y:6:3);
    x:=x+h;
  end;
end.

const n=6;
      m=4;
type matr=array[1..m,1..n] of integer;
procedure output_matr(a:matr);
  var i,j:byte;
  begin
    for i:=1 to m do
      begin
        writeln;
        for j:=1 to n do
          write(a[i,j]:3);
      end;
  end;
procedure input_matr(var a:matr);
  var i,j:byte;
  begin
    randomize;
    for i:=1 to m do
      for j:=1 to n do
        a[i,j]:=random(16);
  end;
var a:matr;
    i,j,c:byte;
    t:integer;
begin
t:=0; c:=0;
input_matr(a);
output_matr(a);
for i:=1 to m do
  if i mod 2=0 then
    begin
      for j:=1 to n do
        if a[i,j] mod 2<>0 then
          begin
            inc(c);
            t:=t+a[i,j];
          end;
    end;
writeln;
if c>0 then write('sum=',t)
else write('no odd elements');
end.

var
   f:Text;
   ch,symbol: char;
   k: integer;
   flag: boolean;
 
begin
     read(symbol);
 
     assign(f,'Text1.txt');
     reset(f);
 
     k:=1;
     While not eof(f) do
     begin
        flag:=true;
        While not eoln(f) do
          begin
               read(f,ch);
               if flag then
               if ch=symbol then
               begin
                   write(k,' ');
                   flag:=false;
               end;
          end;
          read(f,ch);read(f,ch);
        inc(k);
     end;
end.

var s:string;
    i,c:byte;
begin
i:=1; c:=0;
readln(s);
while s[i]<>'.' do
  begin
    if (s[i]='w') and (s[i+1]=' ') or (s[i]='w') and (s[i+1]='.')  then
      inc(c);
    inc(i);
  end;
write(c);
end.

var s:string;
    i:byte;
begin
readln(s);
if length(s) mod 2<>0 then
  begin
    if s[length(s) div 2+1]=' ' then write('middle symbol is space')
    else
      begin
        for i:=length(s) div 2+1 to length(s) do
          s[i]:=s[i+1];
        s[0]:=chr(length(s)-1);
        writeln(s);
     end;
  end
else write('even length string');
end.