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

[vesdesvet]

Доброе утро форумчане! Обращаюсь в который раз к вам с просьбой.
Помогите пожалуйста запустить программу.
Условие задачи. Дан текст. Если первый символ текста не является малой латинской буквой, то оставить его без изменения. Если же это маленькая латинская буква, но за начальной группой малых латинских букв не следует цифра, то также оставить текст без изменения. Иначе каждую цифру, принадлежащую группе цифр, следующей за начальной группой малых латинских букв, заменить символом *.

Программа написана на Паскале.

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.