VCT nhập vào một ký tự.VIệc nhập kết thúc khi ký tự 'k' được nhập vào.Đếm xem có bao nhiêu ký tự được nhập vào.In đếm(giải bằng ngôn ngữ free passcal dùm mình)

uses crt;
var     n:char;
        dem:integer;
begin
clrscr;
        repeat
                write('nhap ki tu: '); readln(n);
                inc(dem)
        until n='k';
write('so ki tu la:',dem);
readln
end.