Составить программу, которая дозволяет ввести две строчки схожей длины и определяет,

program zz1;
var s, ch:string; //заводим переменные
k,i:integer;
begin
write(введите первую строчку );
readln(s); //вводим первую строчку с клавиатуры
write(введите вторую строчку );
read(ch); //вводим вторую строку
for i:=1 to length(s) do //организуем цикл от первой буковкы строчки до заключительней буковкы строчки
if s[i] = ch[i] then k:=k+1; //проверяем, если буковкы стоящие на одной позиции в 2-ух строчках совпадают, то считаем
write(количество знаков стоящих на схожих позициях в 2-ух строчках = ,k); //выводим ответ
end.