1) var sf1,sf2 :string
var'ом задаются переменные. В данном случае они заданы как стрОковые - string
2) k:integer
Вторая переменная - обозначена как целочисленная - integer
3) begin
Начало "тела" программы
4) writeln (' vvedite slovo ')
Оператор запроса на ввод 1го слова.
5) reagln (s1);
Оператор считывания введенного(пользователем) 1го слова.
6) writeln (' vvedite 2e slovo ')
Оператор запроса на ввод 2го слова.
7) readln (s2);
Оператор считывания введенного(пользователем) 2го слова.
8) k:=1;
k - целочисленная переменная, в данном случае работает как счетчик, изначальное значение установлено в 1(единицу).
9) while (s1[k]=s2[k]) and
(k<lenth(s1) and
(k<lenth(s2);
do inc (k)
writeln ('compant',k-1,bukv');
readln;
Цикл. Дословно: здесь идет сравнение длин слов. Сорри, я уже позабыл pascal - последний раз в 2003 году было дело -), поэтому так примитивно.
Добавленно (13 Мая 2011, 16:25:52)
Кстати, там есть грамматические ошибки в программе - если будете писать - поправьте...