...
var m:array[1..10] of ...
     i,j:word;
begin
.. read array ...
j:=1;
for i:=1 to 5 do begin m[i]:=m[j];j:=j+2;end;

Const Rus='АБВГДЕ....ЭЮЯабв....эюя';{..=ост. русские буквы}
         Num='0123456789';
Var     Nr,Nb,i:longint;
         f:file of byte;
         
s:string;
Begin
Nr:=0;Nb:=0;
assign(f,'file.ext'); {имя файла}
reset(f);
repeat
read(f,cool.gif; {!!!!! опиши B:byte;}
for i:=1 to lenght(RUS) do if chr(b=RUS[i] then NR:=NR+1;
for i:=1 to lenght(NUM) do if chr(b=NUM[i] then NB:=NR+1;
until Eof(f)
close (f);
s:='Букв больше';
if nb=nr then s:='равное количество';
if nb<nr then s:='Цыфр больше';
writeln (s);
...