задача для дипломной работы

[x-stat]

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 условия((
пжл помогите, надеюсь на вашу помощь!

[Викдон]

что то на дипломную работу не тянет))

[x-stat]

)) Это курсы просто институтские, вот там диплом, который состоит из описание ворда, екселя, ацесса и паскаля))

[x-stat]

Кто-нибудь помогите пожалуйста.

[Teor]

Я немного по-своему сделал

uses crt;
var j,jj,kil,i,b:integer; n,min,c:real;  mas:array[1..20] of real;
s:string;
max:char;
begin
clrscr;
readln(b);
writeln('vvedi N');
readln(n);
case b of
1: begin
i:=0;
repeat
i:=i+1; 
n:=n/10;
c:=round(frac(n)*10);
mas[i]:=c;
until n<1;
min:=mas[1];
for j:=1 to i do
begin
if mas[j]<=min then
begin
jj:=j;
min:=mas[j];
end;
end;
for j:=i downto 1 do
if jj=j then write ('9') else write (mas[j]:0);
end;
2:begin
repeat
n:=n/10;
kil:=kil+1;
until n<1;
writeln ('Kilist ',kil);
end;
3:begin
i:=0;
repeat
i:=i+1; 
n:=n/10;
c:=round(frac(n)*10);
mas[i]:=c;
until n<1;
if mas[1]=mas[i] then writeln ('Cufru odinakovue') else writeln ('Cufru ne odinakovye');
end;
end;
readkey
end.

[x-stat]

Teor cпс большое! а можно чуть полегче задачу написать без repeat, until и c:=round(frac(n)*10)(это мы вообще не проходили).? у нас паскаль был поверхностно((

[Teor]

Без repeat, until у меня не получиться. А frac, round это просто функции.
frac- отделяет дробную часть числа, а round- округление(для надежности)

[x-stat]

Teor, спс ещо раз огромное)

[Plague]

to Teor
операторы div и mod c ними решение будет лучше.

to x-stat
используйте цикл while или repeat и строки тут не обязательны.

[Teor]

Возможно и лутше. Просто мне с типом real и функцией frac легше