Соседние символы

Program workwithsymbol;
var a,b,c:char;
    k1,k2,k3,f,d,i:byte;
begin
 k1:=0;
 k2:=0;
 k3:=0;
 repeat
  write('Введите 1 символ: ');readln(a);  //ввод символов  
  write('Введите 2 символ: ');readln(b);  
  if (ord(a)=ord(b)+1) or (ord(a)=ord(b)-1) then inc(k1);
   for c:='A' to 'Z' do  //Проверка заглавных латинских букв
    begin
     if a=c then 
       f:=f+1;
     if b=c then 
       f:=f+1;
    end;
   for c:='a' to 'z' do   //Проверка маленьких латинских букв
    begin
     if a=c then 
       f:=f+1;
     if b=c then 
       f:=f+1;
    end;
  //Проверка цифр букв
  for i:=0 to 9 do
   begin
    if a=IntToStr(i) then inc(d);
    if b=IntToStr(i) then inc(d);
   end;
  //если пара то работают счётчики
  if f<>2 then inc(k2);
  f:=0;
  if d<>2 then k3:=k3 else inc(k3);               
  d:=0;
 until a=b;
  //вывод
 writeln('Соседних пар: ', k1);
 writeln('Не латинских: ', k2);       
 writeln('Цифр: ', k3);
 readln;
end.

program z14;
var a,b:char;
a1,b1,c,d,k1,k2,k3:integer;
begin
 k1:=0;
 k2:=0;
 repeat
  writeln('Введите 2 символа:* ');  readln(a, b);                   {вводим символы}
  a1:=ord(a);                                       {порядковые номера символов}
  b1:=ord(b);
  if (a1=pred(b1)) or (a1=succ(b1)) then
     k1:=k1+1; {условие}
  c:=0;
  d:=0;
  case a of '0'..'9':c:=c+1;
      'A'..'Z','a'..'z':d:=d+1;
  end;                                              {цифры}
  case b of '0'..'9':c:=c+1;
      'A'..'Z','a'..'z':d:=d+1;
  end;
  if c=2 then
     k2:=k2+1;
 
 
  if d<>2 then k3:=k3+1;
 until a=b;
 writeln('Количество пар, в которых оба символа соседстуют в ASCII  = ', k1 );  {выводим результат}
 writeln('Количество пар, в которых оба символа не являются буквами латинского алфавита*= ', k3);
 writeln('Количество пар, в которых оба символа цифры = ', k2);
 readln;
end.