Паскаль. Определить, есть ли в строке цифра 9. Стоит ли она в конце строки?Помогите, пожалуйста.

Var s:string; i,k:integer; b:boolean; begin readln(s); b:=false; for i:=1 to length(s) do if s[i]='9' then begin k:=i; b:=true; end; if b=true then writeln('в строке есть 9'); if k=length(s) then writeln('9 в конце строки') else writeln('9 нет в конце строки'); end.

program E02;   uses crt;     var S: string;         i,n,k: integer; begin   clrscr;   writeln('Введите строчку: ');   readln(S);      K:=0;     for i:=1 to length(S) do     if S[i] = '9' then       K:=i;       if K <> 0 then     writeln('Yes 9!')   else     writeln('No 9!');       if K = length(S) then     writeln('Да есть 9 в конце строки!')   else     writeln('Нет 9 в конце строки!'); end.