Дана строка символов. Определить длину строки. Если длина строки <=20, то найти в строке порядковый номер символа *

readln(stroka);
if length(stroka)<=20 then
for n:=1 to length(stroka) do if stroka[n]='*' then
begin
writeln (n);
break;
end;