Если в тексте есть цифра "2", то каждый символ перед этой цифрой заменить на букву "а"

var
    s: String;
    i: Byte;
begin
    Write('s: '); ReadLn(s);
    if (Length(s) > 1)
    then
    begin
        for i := 2 to Length(s) do
            if (s[i] = '2')
            then
                s[i - 1] := 'a';
    end;
    WriteLn(s);
end.

  var
  s:string;
  i:integer;
begin
Writeln('Enter your text');
Readln(s);
if Pos('2', s)>0 then begin
for i :=1 to Pos('2', s)-1 do s[i] :='a';
Writeln(s);
end
else Writeln('"2" not found!');
Readln;
end.

var
    s: String;
    i: Byte;
    state: Boolean;
begin
    Write('s: '); ReadLn(s);
    i := Length(s);
    repeat
        state := s[i] = '2';
        Dec(i);
    until ((i = 0) Or (state));
    if (state)
    then
    begin
        if (i > 1)
        then
            for i := i downto 1 do
                s[i] := 'a';
        WriteLn(s);
    end
    else
        WriteLn('"2" not found!');
end.

i:=Length(s);
while (i>0) and (s[i]<>'2') do Dec(i);
Dec(i);
while i>0 do begin
  s[i]:='a'; Dec(i);
end;

i:=Length(s); 
while (i>0) and (s[i]<>'2') do Dec(i); 
while i>1 do begin Dec(i); s[i]:='a'; end;