Обработка строк.определить длину введенной строки L, и, если длина L>10, то удаляются все цифры

uses crt;
 
const tsifry: set of char = ['0'..'9'];
 
var l: string;
    i: integer;
 
 
begin clrscr;
write('Vvedite stroku: '); readln(l);
if length(l) <= 10 then writeln(l)
 else
  for i:=1 to length(l) do
   if not (l[i] in tsifry) then write(l[i]);
readkey; end.

uses crt;
 
var s: string;
    i: integer;
 
 
begin clrscr;
write('Vvedite stroku: '); readln(s);
 
{$B-}
for i:=1 to length(s)-2 do
 if (s[i] = 'a') and (s[i+1] = 'b') and (s[i+2] = 'c')
  then insert('d',s,i+3);
 
writeln(s);
readkey; end.

  { Вторая задача }
var
  s: string;
  i: integer;
 
begin
  writeln('Строка?');
  readln(s); 
  repeat
    inc(i);
    if (s[i] = 'a') and (s[i + 1] = 'b') and (s[i + 2] = 'c') then
      insert('d', s, i + 3);
  until i = length(s) - 2; 
  writeln(s);
  readln
end.

length(l)