Написать программу при вводе даты рождения допускается нажатие только от 1 до 9 (остальные игнорируются) и только не более 2х цифр — Pascal(Паскаль)

uses crt;
var c:char;
    s:string;
begin
clrscr;
writeln('Введите число от 1 до 99:');
s:='';
repeat
read(c);
if c in ['1'..'9'] then s:=s+c;
until length(s)=2;
readln;
write(s);
readln
end.