Задача в Turbo pascal << На главную или назад  

Задания.
1. Используя оператор варианта, создать меню, позволяющее переключиться на решение одной из следующих задач:
1.1. найти минимальную цифру в записи числа N и заменить ее на 9;
1.2. вычислить сумму цифр заданного числаN;
1.3. проверить, совпадают ли первая и последняя цифры числа N.

помогите решить до конца, вот мои наработки:
var i,n,b: longint; a,c,x,y,z:integer;
s:string;
max:char;
begin
readln(b);
writeln('vvedi N');
readln(n);
case b of
1: begin
str(n,s);
max:='9';
for i:=1 to length(s) do
if (ord(s[i]) < ord(max)) then begin max:=s[i]; s[i]:='9'; end;
writeln(max);
end;
2:begin
a:=0; randomize;
c:=random(999);
writeln('chislo N=',c);
x:=c mod 10; y:=(c mod 100) div 10; z:=c div 100;
a:=x+z+y;writeln('summa cifr=',a);end;
end;
readln;
end.

есть косяк с первым и нет 3 условия((
пжл помогите, надеюсь на вашу помощь!