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

Var c:char;
begin
write('Введите символ: ');
readln(c);
case c of
 '0'..'9'         :writeln('digit');
 'A'..'Z','a'..'z':writeln('lat');
 'А'..'Я','а'..'я':writeln('rus');
 else writeln('Другой символ');
 end;
end.

Пример:
Введите символ: П
rus

// FreePascal 3.0.0

program 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) then
writeln('lat');
end.

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var rmatr:=MatrRandom(n,m,-99,99);
  rmatr.Println(4); Writeln(4*m*'-');
  var max:=rmatr.ElementsByRow.Max;
  var s:=0;
  foreach var row in rmatr.Rows do
    if row.Contains(max) then s+=row.Sum;
  Writeln('Сумма равна ',s)
end.

Пример
Количество строк и столбцов в матрице: 8 7
*** Исходная матрица ***
 -50 -48   6   5  54 -16  42
 -96 -23 -35  46 -39 -44 -15
   2 -67  99  50 -53  68 -61
 -77 -13 -76 -59  38 -20   4
  97 -82  -1  20 -81 -77  -2
 -51  87  34  -5  14 -60  91
 -53  24   2  98 -98  29 -84
  60  28  18  68   8  28 -73

Сумма равна 38

Биполярный транзистор состоит из трех областей: эмиттера, базы и коллектора, на каждую из которых подается напряжение. В зависимости от типа проводимости этих областей, выделяют n-p-n и p-n-p транзисторы. Обычно область коллектора шире, чем эмиттера. Базу изготавливают из слаболегированного полупроводника (из-за чего она имеет большое сопротивление) и делают очень тонкой. Поскольку площадь контакта эмиттер-база получается значительно меньше площади контакта база-коллектор, то поменять эмиттер и коллектор местами с смены полярности подключения нельзя. Таким образом, транзистор относится к несимметричным устройствам.