Определение числа  несовпадений  в  заданных текстах — Pascal(Паскаль)

Program Pro_48 (Input, Output);
Var 
T1, T2: String; 
i, Q: Integer;
N : Integer;
 
Begin
 
WriteLn ('PASCAL: Определение числа несовпадений в заданных текстах.');
Write ('Введите первый текст: '); 
ReadLn (T1); 
Write ('Введите второй текст: ');
ReadLn (T2); 
 
If Length (T1) > Length (T2)
Then 
Begin
N := Length (T2);
Q := Length (T1) - Length (T2); 
End
Else 
Begin
N := Length (T1);
Q := Length (T2) - Length (T1); 
End;
 
For i := 1 To N Do
If T1 [i] <> T2 [i] Then Q := Q + 1;
 
WriteLn ('Число несовпадений: ', Q); 
 
ReadLn;
End.