3 задачи в 1 ( case of )... Нужна Блок-Схема!

[PaScalpel]

Нужно к этой задаче правильно сложить блок-схему, а я не знаю как.
Помогите решить проблему.Не уверен в правильности первой задачи, и количеством end'ов в конце.

Условия:
1)Считайте с клавиатуры число. Если оно отрицательное то измените его знак на положительный (* (-1)), если это целое число то увеличьте его на 1, если это действительное число, отложив дробную часть и уменьшите число на 1. Результат выполнения выведите на экран
2)Для двух целых чисел нужно определить есть они парными или не парными. Чтобы проверить парность выполним условие: остаток от деления на 2 четного числа равна 0. Результат выполнения вывести на экран.
3)С клавиатуры вводятся 2 числа. Определите большее число, уменьшайте его до тех пор пока числа не будут равными. Для выполнения задания используйте оператор СоTо.

program 3in1-case_of;
uses crt;
Label label1;
var a,c,d,x,b:real;
p,y,o,z,n:integer;
num1,num2,i:integer;
begin
clrscr;
writeln('Vuberite nomer zada4i');
readln(n);
clrscr;
case N of
1:
begin
clrscr;
writeln('Vvedite 4islo');
readln(x);
begin
if x<0 then begin
x:=-x;
writeln('x= ',x:4:2);
b:=frac(x);
end;
if b=0 {and b<0} then begin
writeln('x= ',x:4:2);
d:=x+1;
b:=frac(x);
end;
if b>0 then
b:=trunk(b)-1;
writeln('b= ',b:4:2);
end;
2:
begin
clrscr;
writeln('vvedite pervoe 4islo');
readln(p);
writeln('vvedite vtoroe 4islo');
readln(y);
o:=p mod 2;
d:=y mod 2;
if o=0 then
writeln('Pervoe 4islo parnoe')
else
writeln('Pervoe 4islo ne parnoe');
if z=0 then
writeln('Vtoroe 4islo parnoe')
else
writeln('Vtoroe 4islo ne parnoe');
end;
3:
begin
clrscr;
write('Pervoe 4islo: '); readln(num1);
write('Vtoroe 4islo: '); readln(num2);
IF num1>num2 then writeln(num1,' > ',num2);
IF num1<num2 then begin
writeln(num1,' < ',num2);
i:=num1; num1:=num2; num2:=i;
end;
IF num1=num2 then writeln(num1,' = ',num2)
else begin
label1:
dec(num1);
writeln('4islo umenshilos, і = ',num1);
IF num1>num2 then goto label1;
writeln('4isla ravnue. ');
end;
readkey; end; end; readkey; readkey;
end.

[ROMA2PVT]

вот лови схемку.