Дан текст.Если первый символ текста не является малой латинской буквой, то оставить его без изменения

program N_813;
uses crt;
const cif=['0','1','2','3','4','5','6','7','8','9'];
var f, g: text; l, i: integer;
    s: string;
begin
    assign(f,'D:\4319-1\Zadania\Text.txt');
    assign(g,'D:\4319-1\Zadania\Simvoli.txt');
    reset(f); rewrite(g);
    while not(eof(f)) do begin
     readln(g,s);
    l:=length(s);
     for i:=1 to l do begin
     if not(s[1] in ['a'..'z']) then s[1]:=s[1];
      if  (s[1] in ['a'..'z']) and not(s[i+5] in cif) then s[1]:=s[1]
       else s[i+5]:='*';
     write(g,s[i]);
       end; end;
     close(f);close(g);
end.

const
   lett = ['a' .. 'z'];
   digs = ['0' .. '9'];
var
   s : string;
   i, Len : integer;
begin
   s := 'begin@23 end';
   // s := 'begin223 end';
   // s := 'begin1';
 
   // первый символ - строчная латинская буква? Тогда продолжаем ...
   if s[1] in lett then
   begin
      i := 2; // со второго символа
      Len := length(s);
 
      // пока не доберемся до конца строки, или пока не закончится начальная группа
      // букв - переходим к след. символу.
      while (i <= Len) and (s[i] in lett) do inc(i);
 
      // Раз пришли сюда - то группа начальных букв закончилась. И теперь осталось
      // заменить цифры звездочками. Заменяем. Если сразу за группой букв не будет
      // цифры - то условие изначально будет ложным, и не изменится вообще ничего,
      // что и требовалось
      while (i <= Len) and (s[i] in digs) do
      begin
         s[i] := '*';
         inc(i);
      end;
   end;
 
   // Всё, смотрим что получилось и уходим
   writeln(s);
end.

program N_813;
uses crt;
const
   lett = ['a' .. 'z'];
   digs = ['0' .. '9'];
var
   f,g: text;
   s : string;
   i, Len : integer;
begin
   assign(f,'D:\4319-1\Zadania\+-\813\Text.txt');
   assign(g,'D:\4319-1\Zadania\+-\813\Text izmen.txt');
   reset(f);  rewrite(g);
   while not(eof(f)) do begin
   readln(f,s);
   //s := 'begin111 @  23 end';
   // s := 'begin223 end';
   // s := 'begin1';
 
   // первый символ - строчная латинская буква? Тогда продолжаем ...
   if s[1] in lett then
   begin
      i := 2; // со второго символа
      Len := length(s);
 
      // пока не доберемся до конца строки, или пока не закончится начальная группа
      // букв - переходим к след. символу.
      while (i <= Len) and (s[i] in lett) do inc(i);
 
      // Раз пришли сюда - то группа начальных букв закончилась. И теперь осталось
      // заменить цифры звездочками. Заменяем. Если сразу за группой букв не будет
      // цифры - то условие изначально будет ложным, и не изменится вообще ничего,
      // что и требовалось
      while (i <= Len) and (s[i] in digs) do
      begin
         s[i] := '*';
         inc(i);
      end;
   end;
 
   // Всё, смотрим что получилось и уходим
   writeln(g,s); readkey; end; close(f); close(g);
end.