Ошибка в коде шифрующей программы. как исправить

[Dima_Sat]

не считывает кодовое слово и фразу для шифровки

var
g,h,p,t,k,MetkaLnk,MetkaLnp,pr,j,i, lnk,lnp,el,keys, elp: integer;
tab: array [0..26] of array[0..26] of char;
key: array[0..10] of string;
phrase: array[0..255] of char;
phrase1: array[0..255] of char;
phrase2: array[0..255] of char;
key2: string;

begin
tab[0][0]:='a';
tab[0][1]:='b';
tab[0][2]:='c';
tab[0][3]:='d';
tab[0][4]:='e';
tab[0][5]:='f';
tab[0][6]:='g';
tab[0][7]:='h';
tab[0][8]:='i';
tab[0][9]:='j';
tab[0][10]:='k';
tab[0][11]:='l';
tab[0][12]:='m';
tab[0][13]:='n';
tab[0][14]:='o';
tab[0][15]:='p';
tab[0][16]:='q';
tab[0][17]:='r';
tab[0][18]:='s';
tab[0][19]:='t';
tab[0][20]:='u';
tab[0][21]:='v';
tab[0][22]:='w';
tab[0][23]:='x';
tab[0][24]:='y';
tab[0][25]:='z';

//table with smth =)

for h:=1 to 25 do
begin
for g:=0 to 25 do
begin
if ((g+h) <= 25) then tab[h][g]:=tab[0][g+h]
else tab[h][g] := tab[0][g+h-26];
end;
end;

// zaprashivaem dannie ot usera

lnk:=10;
lnp:=255;
writeln ('Enter number of keys in keyword');
readln(keys);
if keys<=0 then writeln ('Number must be more then 0!')
else
begin
writeln ('Enter your keyword by simbols');
for el:=0 to keys do
begin
readln(key[el]);
end;




//proverka key
pr := 99;
for i:=0 to lnk-1 do
begin
for j:=0 to 6 do
begin
if (tab[0][j]=key[i]) then
pr := 0;
if (pr = 99) then
begin
writeln('Error DATA phrase in character ',i);

read(h);
end
else
begin
pr := 99;
end;
end;
end;

//vvodim phrase =)

writeln ('');


writeln ('Enter your phrase which need to code');
for elp:=0 to 75 do
begin
readln(phrase[elp]);
end;

p:=0;
for p:=0 to 255 do

p:=p+1;
k:=0;
for p:=0 to (lnp-1) do
begin
if (phrase[p] >= 'a') then
begin

for t:=0 to 25 do
begin
if (tab[0][t] = key[k]) then
begin
MetkaLnk:=t;
break;
end;
t:=t+1;
end;

for t:=0 to 25 do
begin
if (tab[t][0] = phrase[p]) then
begin
MetkaLnp:=t;
break;
end;
t:=t+1;
end;
k:=k+1;
if (k>lnk-1) then
begin
k:=0;
phrase1[p]:=tab[MetkaLnp][MetkaLnk];
writeln(phrase1[p]);
end;
end
else
writeln(phrase[p]);
p:=p+1;
end;
readln(I);

// rasfifrovka phrase

k:=0;
writeln('');
for p:=0 to lnp-1 do

if (phrase[p] >= 'a' ) then
begin
begin for t:=0 to 25 do
begin
if (tab[0][t] = key[k]) then
begin
MetkaLnk:=t;
break;
end;
end;
for t:=0 to 25 do
begin
if (tab[t][MetkaLnk] = phrase1[p]) then
begin
MetkaLnp:=t;
break;
end;
end;

k:=k+1;
if (k >lnk-1) then
k:=0;
phrase2[p]:=tab[0][MetkaLnp];
writeln(phrase2[p]);
end;
end
else writeln(phrase[p]);
read(h);
end;
end.