Контроль вводимых данных в программе перевода систем счисления

uses crt;
 
var s: string;
    c: char;
 
begin
  s := '';
  write('n = ');
  repeat
    c := readkey;
    if c in ['0'..'7']
      then begin
        s := s + c;
        write(c)
      end
      else if (c = #8) and (length(s) > 0)
        then begin
          delete(s, length(s), 1);
          write(c, ' ', c)
        end;
  until (c = #13) or (length(s) = 8);
  writeln;
  if length(s) = 0 then s := '0';
 
  write('n = ', s); {проверочная печать, естественно, нужно удалить}
  {далее s можно использовать}
  {...}
 
  repeat until keypressed
end.

var
  S: ansistring;
  k: integer;
 
begin
  repeat
    k := 0;
    Write('S = ');Readln(S);
    if S <> '' then
      repeat
        inc(k);        
        if not (S[k] in ['0'..'9']) then
        begin
          Delete(S, k, 1);
          dec(k);
        end;        
      until k = length(S);
      if S = '' then S:='0';
    Writeln('New S = ', S);  // В S только цифры, если ввeли только буквы, то 0
  until false;
end.

var s: string;
    k: integer;
 
begin
  write('S = ');
  readln(S);
  for k := length(s) downto 1 do
    if not (s[k] in ['0'..'9'])
      then delete(s, k, 1);
  if length(s) = 0 then s := '0';
  writeln('New S = ', s);
  readln
end.