Що входить до практичної частини проекту.​

Под форматом символа понимают параметры его изображение— рисунок (гарнитура), начертание (обычный, курсив, полужирный и проч.), размер, цвет и др. Для форматирования символов выполняют команду "Главная → Шрифт". После этого открывается диалоговое окно "Шрифт ", на одноименной вкладке которого можно установить все параметры шрифта . Использовать это окно очень удобно потому, что в нем выводятся все стандартные параметры форматирования, которые можно изменять, одновременно контролируя результат внесении изменений в поле " Образец ". Кроме того, нажав кнопку " По умолчанию...", можно сохранить выбранные параметры в шаблоне текущего документа. Диалоговое окно Шрифт имеет две вкладки: "Шрифт", "Интервал" . На вкладке "Шрифт" задаются следующие параметры:тип шрифта (гарнитура)— например, Times New Roman, Arial;стиль начертания (список "Начертание") — обычный, курсив, полужирный, полужирный курсив; размер шрифта (кегль) — размер символа в пунктах (от 8 до 72). Пункт (пт) — традиционная печатная единица (1 пт = 0,35 мм = =1/72дюйма);цвет символов (поле "Цвет"); стиль подчеркивания (список "Подчеркивание")— одинарное, двойное, пунктирное и др.; цвет подчеркивания (поле "Цвет подчеркивания "); текстовые эффекты (зона "Видоизменение ") — дополнительные параметры для создания таких эффектов, как зачеркивание, тень, преобразования символов в верхние или нижние индексы и др. Вкладка "Интервал" содержит следующие параметры: масштаб — коэффициент масштабирования шрифта по горизонтали(%);интервал — плотность шрифта (в пунктах); смещение слова — передвижения слова вверх или вниз относительно базовой линии; кернинг — этот флажок указывает на наименьший размер шрифта, начиная с которого для шрифтов большего размера кернинг будет применяться, то есть уменьшенный межсимвольный интервал для отдельных пар символов, что улучшает восприятие текста.
P.S. Меньше написать не смогла. Можешь кое-что удалить.  

Program Shifr;
var    
  s1,s2,alf,key:string;
  i,n, Kod:integer;
  f1,f2:text;
BEGIN
alf:='';
assign(f1,'Dannie.txt'); 
assign(f2,'Shifr.txt'); 
reset(f1);
rewrite(f2);
writeln('Введите четырехзначный ключ шифрования:');
readln(key);
n:=0;
while Not(Eof(f1)) do
  begin
  readln(f1,s1);
  s2:='';
  for i:=1 to length(s1) do
    begin
    Kod:=Pos(s1[i],alf);
    n:=n+1;
    if n>4 then n:=1;
    Kod:=Kod+StrToInt(key[n]);
    if Kod>33 then Kod:=Kod-33;
    if Kod<1 then Kod:=Kod+33;
    s2:=s2+alf[Kod];
    end;
  writeln(f2,s2);
  end;
close(f1); 
close(f2); 
END. 

Program DeShifr;
var
  s1,s2,alf,key:string;
  i,n,Kod:integer;
  f1,f2:text;
BEGIN
alf:='';
assign(f1,'Shifr.txt'); 
assign(f2,'DeShifr.txt');
reset(f1);
rewrite(f2);
writeln('Введите четырехзначный ключ шифрования:');
readln(key);
n:=0;
while Not(Eof(f1)) do
  begin
  readln(f1,s1);
  s2:='';
  for i:=1 to length(s1) do
    begin
    Kod:=Pos(s1[i],alf);
    n:=n+1;
    if n>4 then n:=1;
    Kod:=Kod-StrToInt(key[n]);
    if Kod>33 then Kod:=Kod-33;
    if Kod<1 then Kod:=Kod+33;
    s2:=s2+alf[Kod];
    end;
  writeln(f2,s2);
  end;
close(f1); 
close(f2); 
END.