Курсовая работа: Программа для шифрования данных с помощью шифра Тритемиуса

if ord(c1)<>27 then begin

if (imyafaila=' ') then begin probel:=false;writeln('Filename is not entered.Please enter');end;

if (h=false) then

begin

write('You enter invalid filename with numeral.Press <Enter> and try again');

readln;

end;

if (l=50) then

begin

write('Exceeded the maximum length of string.Press <Enter>');

repeat

c1:=readkey;

until (c1=#13);

end;

assign(f,imyafaila);

{$I-}

reset(f);

{$I+}

result:=IOResult=0;

if not result then begin writeln('File not found.Try again');result:=false;end

else close(f);

end;

end;

until ((probel)and(h)and(enter)and(result)) or (c1=#27);

if (result) and (c1<>#27) then

begin

for i:= 1 to length(keyword) do

keyword1[i]:=copy(keyword,i,1);

assign(f2,'laba2.txt');