Составить программу определяющую, правда ли, что заданное натуральное число N является двузначным и кратно K, и выдающую на экран соответствующее сообщение — Pascal(Паскаль)

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.