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

end;

function deshifr(z:integer):char;

begin

deshifr:=(chr(z+97));

end;

procedure backspace(var s21:string);

var i1:integer;s31:string;

begin

if length(s21)<>0 then begin

gotoXY(whereX-1,whereY);

write(' ');

gotoXY(whereX-1,whereY);

s31:='';

for i1:=1 to (length(s21)-1) do s31:=s31+s21[i1];

s21:=s31;

end;

end;

procedure probel1(i2:integer);

var i3:integer;

begin

for i3:=1 to i2 do write(' ');

end;

var a,c,c1,z,vixod:char;keyword1:mas;

text1:mas1;

s,keyword,text,otvet,imyafaila:string;

i,k,l,o,j,d,sdvig,u:integer;h,probel,enter,t,y,p,result:boolean;

kk:char;m,q:integer;

f,f2,f3:file of char;

begin