Заданное натуральное число N является двузначным и кратно К. (программа Паскаль)

program ivan_vasilievich;
uses crt;
var n, k:integer;
begin
writeln('Введите своё число');
readln(n);
If (n<10) or (n>99) then
begin
writeln('Число не двухзначное');
readln(k);
If n mod k=0 then
begin
writeln('Число кратно ',k);
end;
If n mod k<>0 then
begin
writeln('Число не кратно',k);
end;
end
else
begin
writeln('Число двухзначное');
readln(k);
If n mod k=0 then
begin
writeln('Число кратно ',k);
end;
If n mod k<>0 then
begin
writeln('Число не кратно ',k);
end;
end;
readln;end.