Определение числа  несовпадений  в  заданных текстах.

Program Pro_48 (Input, Output);    

Объявление имени программы

Var         

Блок объявления глобальных переменных

T1, T2    : String; 

T1, T2 - исходные тексты

i, Q          : Integer;              

i - переменная цикла, Q - число несовпадений

N             : Integer;              

N - длина поэлементно сверяемой части

Begin    

Начало тела программы

WriteLn ('PASCAL: Определение числа несовпадений в заданных текстах.');        

Начало тела программы

Write ('Введите первый текст: ');   

Запрос ввода T1 - 1-го текста

ReadLn (T1);       

Ввод переменной T1

Write ('Введите второй текст: ');    

Запрос ввода T2 - 2-го текста

ReadLn (T2);       

Ввод переменной T2

If Length (T1) > Length (T2)            

Если длина текста T1 больше длины текста T2

Then     

То...

Begin    

Начало блока "ТО"

N := Length (T2);

Заносим в N длину меньшей строки - T2

Q := Length (T1) - Length (T2);       

Заносим в число несовпадений разность длин строк

End        

Конец блока "ТО"

Else       

Иначе...

Begin    

Начало блока "ИНАЧЕ"

N := Length (T1);

Заносим в N длину меньшей строки - T1

Q := Length (T2) - Length (T1);       

Заносим в число несовпадений разность длин строк

End;      

Конец блока "ИНАЧЕ"

For i := 1 To N Do              

Цикл для i от 1 до N - длины меньшей строки

If T1 [i] <> T2 [i] Then Q := Q + 1;  

Если соответствующие элементы строк не совпадают, то увеличиваем Q на 1

WriteLn ('Число несовпадений: ', Q);           

Вывод числа несовпадений

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.