Дано предложение. Определить, есть ли в нём буква «а». В случае положительного ответа найти порядковый номер первой из них — Pascal(Паскаль)

uses crt;
var st:string;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 if pos('a',st)>0 then writeln(pos('a',st)) else write('Буквы "a" нет в слове');
 readln;
end.

var s:string;
    i,position:integer;
    
begin
write('-> ');
readln(s);
position:=0;
for i:=1 to length(s) do
begin
   if s[i]='а' then 
   begin
     position:=i;
     break;
   end;
end;
if position=0 then writeln('буквы "а" нет')
else writeln(position);
readln;
end.