Найти номер символа, на котором файлы не совпадают

Program Filemanager;
 
Var
  
  f1, f2:text;
  ch1,ch2 : char;
  index : integer;
  isEnd1, isEnd2 : boolean;
  
 Begin
 
    assign(f1,'input1.txt');
    reset(f1);
    assign(f2,'input2.txt');
    reset(f2);
    
    index := 0;
    isEnd1 := not(eof(f1));
    isEnd2 := not(eof(f2));
    if(isEnd1 = isEnd2)Then
      Begin
         if(isEnd1 = FALSE)Then
            writeln('Файлы пустые!!!')
         else
           While isEnd1 AND isEnd2 do
           Begin
           read(f1,ch1);
           read(f2,ch2);
           if not(eoln(f1) OR eoln(f2)) Then
             index := index + 1; 
             writeln(index);
           if(ch1 <> ch2)Then      
              break;
            isEnd1 := not(eof(f1));
            isEnd2 := not(eof(f2));
           End;
           if isEnd1 <> isEnd2 then
             Begin
              index:= index+1;
             writeln(index);
             End
           else if (ch2 <> ch1) AND (isEnd1 = isEnd2) then
              index:= index + 1;
           writeln(index);
           writeln('Несовпадение начинается с ', index , ' символа!');
     End
   else
      Begin
      writeln('Один из файлов пустой');
      writeln('Несовпадение начинается с 1 символа');
      End;
 close(f1);
 close(f2);
 readln();
 End.

program Filemanager;
 
var
  f1, f2: text;
  index: integer;
 
begin
  assign(f1, 'input1.txt');
  reset(f1);
  assign(f2, 'input2.txt');
  reset(f2);
  index := 0;
  
  while not (eof(f1) OR eof(f2)) do
    if ReadChar(f1) = ReadChar(f2) Then
      index += 1
    else break;
  if (index  = 0) AND (eof(f1) OR eof(f2)) then writeln('Один из файлов пустой!');    
  writeln('Несовпадение начинается с ', index + 1, '-го символа!'); 
  
  close(f1);
  close(f2);
  readln;
  
end.