Посимвольное считывание

uses Crt ;
const
     FLett = '`~!@#$%^&()_-=+1234567890[]{};:/|\'',.qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNMёйцукенгшщзхъфывапролджэячсмитьбюЁЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ ' ;
var
   c : char ;
   s : string ;
procedure DeleteChar ( var s : string ) ;
begin
     if not ( ( WhereX = 1 ) and ( WhereY = 1 ) )
     then
     begin
          if WhereX = 1
          then
              GoToXY ( 20 , WhereY - 1 )
          else
              GoToXY ( WhereX - 1 , WhereY ) ;
          Write ( ' ' ) ;
          Delete ( s , length ( s ) , 1 ) ;
          if WhereX = 1
          then
              GoToXY ( 20 , WhereY - 1 )
          else
              GoToXY ( WhereX - 1 , WhereY ) ;
     end ;
end ;
begin
     CRTWindowSize ( 20 , 20 ) ;
     ClrScr ;
     repeat
           c := ReadKey ;
           if ( c <> #13 ) and ( c <> #27 )
           then
           begin
                if c = #8
                then
                    DeleteChar ( s ) ;
                if pos ( c , FLett ) <> 0
                then
                begin
                     if WhereX = 20 then GoToXY ( 1 , WhereY + 1 ) ;
                     Write ( c ) ;
                     s := s + c ;
                end ;
           end ;
     until ( c = #13 ) or ( c = #27 ) ;
end .

uses Crt;
var
 c:char;
procedure DeleteChar;
begin
 if not((WhereX=1)and(WhereY=1)) then
  begin
  if WhereX=1 then GoToXY(20,WhereY-1)
  else GoToXY(WhereX - 1,WhereY);
  Write(' ');
  GoToXY(WhereX-1,WhereY);
  end ;
end ;
begin
 CRTWindowSize(20,20);
 ClrScr;
 repeat
  c:=ReadKey;
  if c=#0 then c:=readkey
  else
   if(c<>#13)and(c<>#27)then
    begin
    if c=#8 then DeleteChar 
    else Write(c);
    if WhereX=20 then GoToXY(1,WhereY+1);
    end;
 until(c=#13)or(c=#27);
end .