Считать из файла символьный массив. распечатать его выделяя цветом прописные буквы латинского алфавита и посчитать, сколько в массиве букв «а»- Pascal(Паскаль)

uses crt;
var f:text;
    a:array[1..5000] of char;
    c:char;
    n,i,k:integer;
    nf:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
n:=0;
while not eof(f) do
 begin
  read(f,c);
  if not(c in [#10,#13,#26]) then
   begin
    n:=n+1;
    a[n]:=c;
   end;
 end;
close(f);
k:=0;
writeln('Массив:');
for i:=1 to n do
 begin
  if a[i]='a' then k:=k+1;
  if a[i] in ['a'..'z'] then textcolor(12)
  else textcolor(15);
  write(a[i]);
 end;
writeln;
writeln('Количество букв а=',k);
readln
end.