Кто может

[димон4ик_]

Дано целое число n, удовлетворяющее условию 0< модуль н но меньше либо равно 2*10 в девятой степени . Найти максимальную цифру в записи этого числа.

[whatever]

var
  n,i:integer;
  k:char;
  Chis:array of char;
  str:string;
begin
    writeln('Enter N:');
  readln(n);
  str:=inttostr(n);
  setlength(chis,length(str));
  for i:=0 to high(chis) do
    chis[i]:=str[i+1];
  k:='0';
  for i:=0 to high(chis) do
    if k<chis[i] then k:=chis[i];
  Writeln('MAX= ',k);
  readln
END.

Правда про модуль забыл... Ну если что сделай проверку после readln(n), если отрицательно, то отними его от самого себя два раза :D