Задача на строки, Найти максимальную цифру в строке Опции

[Capt]

Помогите реализовать задачку Найти максимальную цифру в строке.
Код программы моей выкладываю:

Код

program ex10;
var  i,k,n,max:integer;
     s:string;

begin
writeln ('Введите строку');
readln(s);

val(s,n,k);
for i:=1 to n do
max:=n[i];
for i:=2 to n do
if n[i]>max then max:=n[i]; write('Макс число''',max);
readln
end.

[Ozzя]

program ex10;
var  i,k,n,max:integer;
     s:string;

begin
writeln ('Введите строку');
readln(s);

val(s[1],n,k);
max:=n;

for i:=2 to length(s) do
  begin
    val(s[i],n,k);
    if n>max then 
       max:=n; 
   end;
writeln('Макс число''',max);
readln;
end.

Сообщение отредактировано: volvo - 5.11.2006 20:20