Определить в введенном тексте кол-во русских и английских букв а также цифр .
Составьте пожалуйста задачу в Pascal ABC. Зарание спасибо!

vars: string;rus, eng, cif: set of char;i, r, e, c: integer;beginrus := ['Ё', 'ё', 'А'..'Я', 'а'..'я'];eng := ['A'..'Z', 'a'..'z'];cif := ['0'..'9'];write('Введите текст: ');readln(s);for i := 1 to length(s) dobeginif s[i] in rus then inc(r);if s[i] in eng then inc(e);if s[i] in cif then inc(c)end;writeln('Русских букв: ', r);writeln('Английских букв: ', e);writeln('Цифр: ', c)end.