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

VarS:string;C:char;i:integer;BeginWrite('Введите строку: ');ReadLn(S);Write('Введите символ: ');ReadLn(C);For i:= 1 to S.Length do    if S[i] = C then       Write(i,' ')End.Пример:Введите строку: Дана строка символов. Определить длину строки. Если длина строки <=20, то найти в строке порядковый номер символа *Введите символ: а2 4 11 57 76 113