Составить программу (паскаль) составить программу, не позволяющую вводить цифры

uses crt;
var k:char;
begin
writeln('vvedi cheta. dla okonchania [');
repeat
k:=readkey;
if (ord(k)>57) or (ord(k)<48) then write(k);
until k='[';
writeln;
readln;
end.