String6. Дан символ C, изображающий цифру или букву (латинскую или рус- скую). Если C изображает цифру, то вывести строку «digit», если латин- скую букву — вывести строку «lat», если русскую — вывести строку «rus». В паскале пожайлуста помогите не могу сделать

Понял, что почти ничего не знаю про Паскаль...

В программе синтаксическая ошибка - пропущено then. Прописные русские буквы не распознаются, а если ввести, к примеру, звездочку, программа считает её латинской буквой. Может быть, стоит перед публикацией программы её все же пробовать запустить?

// FreePascal 3.0.0program string6;var i: integer; f: boolean; R: array[1..33] of WideChar = ('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ь', 'ы', 'ъ', 'э', 'ю', 'я'); C: WideChar;begin f := False; readln(C); if IsNumber(C)begin writeln('digit');f := True;end else for i := 1 to 33 do if R[i] = C then begin writeln('rus'); f := True; break; end;if not(f) thenwriteln('lat');end.