не виден ввод, паскаль

[Барби]

Программа работает, все выполняется, но после того как добавила функцию setdekan и getdekan и ключи 4 и 5 к их выполнению перестало быть видно какую цифру ввожу. происходит так: загрузка программы, выводится меню, где предлагается нажать на одну из цифр для выполнения, первый раз нажимаем цифру любую и ее видно, нажимаем энтер вводим название или фамилию и все отлично, тут же выбираем другую цифру и почему то уже не видно какую цифру ввожу, при этом если ввести невидимую цифру и нажать энтер то будет выполнятся верная функция. Как же сделать цифру которую я ввожу видимой? раньше все цифры были видно,а теперь добавила про декана и вот такой глюк получился.програма написана на паскале

Program learn;

uses crt;

type
uchebzaved = object
nazvanie : string;

tip : string;
obrazovanie : string;

procedure getnazvanie(var n : string);
procedure setnazvanie(n : string);
procedure gettip(var n : string);
procedure getobrazovanie(var n : string);
procedure print;

end;
wkola = object(uchebzaved)

procedure init;
end;
vuz = object(uchebzaved)
dekan : string;
procedure init;
procedure print;
procedure getdekan(var n : string);
procedure setdekan(n : string);
end;
univer = object(vuz)
procedure init;

end;
institut = object(vuz)
procedure init;
end;

procedure  uchebzaved.getnazvanie(var n : string);
begin
n := nazvanie;
end;
procedure uchebzaved.setnazvanie(n : string);
begin
nazvanie := n;

end;
procedure uchebzaved.gettip(var n : string);
begin
n := tip;
end;
procedure  uchebzaved.getobrazovanie(var n : string);
 begin
n := obrazovanie;
end;

procedure   uchebzaved.print;

begin
writeln;
writeln('Uchebnoe zavedenie ', tip, ' obrazovanie', obrazovanie);
writeln('nazvanie: ',nazvanie);
writeln;
end;
procedure wkola.init;
begin
tip := '  tip :wkola';
obrazovanie := ' :srednee';
end;
procedure vuz.init;
begin
tip := '  tip :vuz';
obrazovanie := ' :viswee/viswee aspirantskoe';
end;
procedure vuz.getdekan(var n : string);
begin
n := dekan;
end;
procedure vuz.setdekan(n : string);
begin
dekan := n;

end;
procedure vuz.print;
begin
writeln;
writeln('Uchebnoe zavedenie ', tip, ' obrazovanie', obrazovanie);
writeln('nazvanie: ',nazvanie);
writeln('Dekan: ',dekan);
writeln;
end;

procedure univer.init;
begin
tip := '  tip :vuz';
obrazovanie := '  :viswee/viswee aspirantskoe';
end;
procedure institut.init;
begin
tip := '  tip :vuz';
obrazovanie := ' :viswee';
end;

var
wk : wkola;
v : vuz;
un : univer;
ins : institut;

input : integer;
input_str: string;

begin


input := 0;


wk.init;

v.init;
un.init;
ins.init;

while input <>6 do
begin
clrscr;
writeln;

wk.print;
un.print;
ins.print;

writeln;

writeln('1. ystanovit nazvanie wkoli');
writeln('2. ystanovit nazvanie universiteta');
writeln('3. ystanovit nazvanie instituta');
writeln('4. ystanovit Dekana universiteta');
writeln('5. ystanovit Dekana instituta');
writeln('6. exit');

readln(input);

case input of
1:
  begin
      write('vvedite nazvanie: ');

      readln(input_str);
      wk.setnazvanie(input_str);
      end;

2:
     begin
      write('vvedite nazvanie: ');

      readln(input_str);
      un.setnazvanie(input_str);
      end;

3:

      begin
      write('vvedite nazvanie: ');

      readln(input_str);
      ins.setnazvanie(input_str);
      end;

4:
     begin
      write('vvedite familiu Dekana: ');

      readln(input_str);
      un.setdekan(input_str);
      end;

5:
     begin
      write('vvedite familiu Dekana: ');

      readln(input_str);
      ins.setdekan(input_str);
      end;
      end;
      end;
      end.

[Барби]

все, уже нашла что не туда очистку экрана вставила.