Ана программа.

begin
write ('dog ');
write ('Запомни!')
end.

На экране данные выведены следующим образом:

dog Запомни!
Запомни!
dog
dog
Запомни!

1.В кастрюлю налить кефир.
2.Вылить молоко
3.Добавить сливки.
4.Вбить яйца.
5,Положить соль.
6,Всыпать сахар.
7,Всыпать разрыхлитель.
8.Добавить муку. Тесто по консистенции должно напоминать жидкую сметану.
9.Все как следует перемешать и оставить на час при комнатной температуре, затем убрать на ночь в холодильник. Если планируете выпекать сразу, дайте тесту постоять минут 15-20 и приступайте к выпечке.
10,Сковороду накалить, смазать маслом 
11,Выливая небольшое количество теста распределять его по всей поверхности сковороды.
12,Выпекать с двух сторон до золотистого цвета, буквально по полминутки.
13,Готовые блины складываем стопкой, промазывая каждый блин сливочным маслом.
14,Подать блины к столу со сметаной, вареньем, медом или сгущенкой.

В программе буквы добавляются по алфавиту без повторений.
var s1,s2:string;
function F(var a,b:string):boolean;
var m:set of char; i:integer; c:char;
begin
 m:=[];
 for i:=1 to length(a) do
  if pos(a[i],b)=0 then m:=m+[a[i]];
 for c:=chr(32) to chr(255) do
  if c in m then a:=a+c;
 if m=[] then f:=false else f:=true;
end;
begin
writeln('Введите строку 1:');
readln(s1);
writeln('Введите строку 2:');
readln(s2);
if f(s1,s2)
 then writeln('Новая строка: ',s1) else writeln('Строка не изменилась ');end.

Пример:
Введите строку 1:
program
Введите строку 2:
procedure
Новая строка: programagm