Выбор латинских букв из массива.

[Tonik_A]

Написал сам программу. Она должна выяснять в каком из двух введенных массивов больше латинских букв.
Синтаксических ошибок не выдаёт, зато и количество букв не считает.
Может, кто даст совет, как проще организовать поиск латинских букв.

Program Poisk_latinskih_bukv;
Uses crt;
Type
Latins = set of 'A'..'Z';
mas=array[1..10] of char;
Var
Lat: Latins;
a,b:mas;
m,i,sum_a,sum_b:integer;
Begin
Lat:=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r',
's','t','u','v','w','x','y','z'];
sum_a:=0;
sum_b:=0;

writeln('Vvedite kolichestvo elementov massivah "a" i "b", ot 1 do 10');
read(m);

for i:=1 to m do begin
writeln('Vvedite ',i,' element massiva "a"');
readln(a[i]);
end;

for i:=1 to m do begin
writeln('Vvedite ',i,' element massiva "b"');
readln(b[i]);
end;

for i:=1 to m do begin
if a[i] in Lat then sum_a:=sum_a+1;
if b[i] in Lat then sum_b:=sum_b+1;
end;

writeln('sum_a',sum_a);
writeln('sum_b',sum_b);
end.

-----------------------------------
С уважением, Антон.

[ОДИНОЧЕСТВО В СЕТИ]

Program Poisk_latinskih_bukv;
Uses crt;
Type
mas=array[1..10] of char;
Var
Lat: set of 'A'..'z';
a,b:mas;
m,i,sum_a,sum_b:integer;
Begin
sum_a:=0;
sum_b:=0;

writeln('Vvedite kolichestvo elementov massivah "a" i "b", ot 1 do 10');
read(m);

for i:=1 to m do begin
writeln('Vvedite ',i,' element massiva "a"');
readln(a[i]);
end;

for i:=1 to m do begin
writeln('Vvedite ',i,' element massiva "b"');
readln(b[i]);
end;

for i:=1 to m do begin
if a[i] in Lat then sum_a:=sum_a+1;
if b[i] in Lat then sum_b:=sum_b+1;
end;

writeln('sum_a',sum_a);
writeln('sum_b',sum_b);
end.