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

begin

text:=text+c;

l:=l+1;

end;

end;

until (ord(c)=13) or (ord(c)=27) or (l=231);

if ord(c)<>27 then begin

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

if (h=false) then

begin

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

readln;

end;

if (l=231) then

begin

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

repeat

c:=readkey;

until (c=#13);

end;

end;

end;

until((probel)and(h)and(enter)) or (c=#27); {проверкианалогичныепроверкамключевогослова}

if (probel)and(h)and(enter)and(text<>'')and(keyword<>'')and(c<>#27) then

begin

for i:= 1 to length(keyword) do

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

fori:= 1 tolength(text) do{переводим ключевое слово и текст в массивы}

text1[i]:=copy(text,i,1);