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

end;

end;

until (ord(c1)=13) or (ord(c1)=27) or (l=50);

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;

end;

end;

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

assign(f,imyafaila);

{$I-}

reset(f);

{$I+}

result:=IOResult=0;

if not result then rewrite(f) else begin reset(f);if filesize(f)<>0 then repeat read(f,c);until(EOF(f));end; {еслифайлсуществуетперемещаемкурсорвконецфайла,либосоздаемновыйфайл}

for i:=1 to length(otvet) do

write(f,otvet[i]); {записываем данные}

close(f);