к: Integer;

begin

for k := 1 to LT+Bord+1 do Write ('*');

WriteLn;

for k := 1 to NT do

WriteLn('*',' ':Bord div 2,

Text[k],1*1:LT+Bord div 2-Length(Text[k])) ;

for k := 1 to LT+Bord+1 do HriteC*') ;

WriteLn;

Halt

end; {Help} /————————————;

Procedure CheckParam;

{Проверяет параметры вызова и дает диагностику, если не задано имя защищаемого файла} var

k: Integer;

s,n,e: String;

Function UpStringts: String): string;

var

k: Integer;

begin

for k := 1 to Length(s) do s[k] := UpCase(s[k]);

UpString := s end; {UpString} begin {CheckParam} NE : = " ;

NF :== FagMame;

for k :° 1 to ParamCount do begin

s := UpString(ParamStr(te));

if s='/NOBAK" then

BakFile := False else

if pos C/F:',s)<>0 then

NF := copy(s,4,Length(s)-3) else

if NE='' then

NE := S else begin

WriteLn <'Ошибка в обращении') ;

Help end end;

if NE = '' then Help;

if pos (' : ',NF)=0 then

begin {He указан путь к фагу} s := ParamStr(0) ;

FSplit(s,s,n,e) ;

NF := s+NF {Взять путь к SetFag} end end; {CheckParam} ^————————————;

Procedure NotAccessis: String);