Посчитать общее количество латинских букв во всех строках

type
  Link = ^Number;
  Number = record
    Cislo: string;
    NextRec: Link;
  end;
 
var
  i, c: integer;
  a: string;
  First, tmp: Link;
 
procedure Add(var spis1: Link; znach1: string );
var
  tmp: Link;
begin
  if spis1 = nil then {Проверяем не пуст ли список, если пуст, то }
  begin
    New(spis1);
    tmp := spis1;
  end
  else {в случае если список не пуст}
  begin
    tmp := spis1;
    while tmp^.nextrec <> nil do
      tmp := tmp^.nextrec; {ставим tmp на последний элемент списка}
    New(tmp^.nextrec);
    tmp := tmp^.nextrec;   {переносим tmp на новый элемент}
  end;
  tmp^.nextrec := nil; {зануляем указатель}
  tmp^.cislo := znach1; {заносим значение}
end;
 
procedure ShowList(first: link);
begin
  Writeln('Список элементов: ');
  if first = nil then 
    writeln('Список пуст...')
  else
  begin
    while first <> nil do
    begin
      write(first^.cislo, ' ');
      first := first^.nextrec;
    end;
  end;
end;
 
begin
  Writeln('Укажите длину списка: ');
  Readln(c);
  first := nil;
  Writeln('Введите строки:');
  for i := 1 to c do
  begin
    readln(a);
    add(first, a);
  end;
  ShowList(first);
  c := 0;
  while first <> nil do
  begin
    for i := 1 to length(first^.cislo) do
      if first^.cislo[i] in ['A'..'Z', 'a'..'z'] then
        inc(c);
    first := first^.nextrec;
  end;
  writeln;
  writeln('Количество латинских букв во всех строках: ', c);
end.