задача на разветвленные алгоритмы (turbo pascal)

[Mr.KOHCEPBATOP]

Написать программу вывода на экран порядкового номера всех букв: а) буквы от А до Z, б) русского алфавита, в) укираинськои азбуки.

помогите пожалуйста, на вас последняя надежда!

[Stilet]

for i:=1 to 250 do  if chr(i) in ['A'..'z','А'..'я'] then write(i:3);
readln;

Переменную опишешь сам. Украинской раскладки не имею, так что добавшь в условие украинскую букву. И драйвер для украинской раскладки поставить в систему не забудь.

азбуки

Абетки. Писал бы хоть правильно...

[Mr.KOHCEPBATOP]

большое спасибо!
на счет "Азбуки" извини. Я русский плохо знаю ...