Musze napisac program :zakodowac i odtworzyc dany tekst stosując zamianę znaków. Mam cos takiego ale nie dziala i dokladnie nie wiem jak to zrobic

program szyfr;
{$APPTYPE CONSOLE}
uses SysUtils;

var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,r,s,t,u,w,y,z: ?;
i: integer;
begin
writeln('Jesli chcesz zaszyfrowac dane wcisnij 1');
writeln('Jesli chcesz rozszyfrowac dane wcisnij 2');
read(i);
begin
if i=1 then
a:=2;
b:=4;
c:=6;
d:=5;
write('podaj wyraz do zaszyfrowania :');
if i=2 then
2:=a;
6:=c;
5:=d;
4:=b;
write('podaj do rozszyfrowania:');
end;
end.

prosze o pomoc
Uwaga: To jest stary temat
Ta dyskusja jest starsza niż 90 dni. Informacje w niej zawarte mogą już nie być aktualne