задача на строки

[Hostlman]

Уважаемые программисты, помогите выполнить задачу на строки:

Определите наибольшую из цифр, используемых в десятичной записи двузначного натурального числа N .

вот мое решение:
var s:string;
code,m,max,i:integer;
Begin
readln(s); max:=0;
for i:=1 to length(s) do

val(s[i],m,code);
if m>max then
max:=m;
writeln(max);
end.

Не выполняется, и не знаю как это сделать для двухзначного числа.

[Maria]

Привет! Возможно, Вы пропустили скобки Begin And , то бишь:
.... do Begin
val();
if m>max then
max:=m;
end;
writeln(max);

[Карась]

var N, One, Two: integer;

begin
Readln (N);
One := N div 10;
Two := N mod 10;
if One > Two then Writeln (One) Else
if One = Two then Writeln ('Oni ravnId') Else
Writeln (Two);
Readln;
end.

Тут правда не строки... Просто надо преобразовать строку в число )