как это сделать ?

[777pro777]

Дан текст из цифр и строчных латинских и русских букв, за которым следует точка. Определить, первые вхождения букв в текст, сохраняя их исходный взаимный порядок

uses crt;
var s2:set of '0'..'9';
s:set of 'a'..'z';
begin
writeln ();
readln(s);

if (s in s2);
writeln(s3) ;
end.