Шифр Виета

[Nikitasd]

Уважаемые программисты! Написал программу, по защите информации, которая осуществляет маршрутное шифрование. Она работает, но к сожалению только для случаев когда текст умещается в рамку выбранного нами двумерного массива nxm. Препод отказывается принимать, помогите зациклить пожалуйста, чтобы и для таких случаев работало:

program viet;
const alfavit = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
Type
matryx = array[0..256,0..256] of char;
var
i,j,k,n,b,x,l,a:integer;
s:char;
m:matryx;
fl:file of char;
parol:text;
shifr:file of char;
par:string;
hh : array[0..33] of byte;
begin 
writeln('введите m и n соответственно');
read(n,b);
assign(fl,'text.txt');
reset(fl);
assign(parol,'textpar.txt');
 reset(parol);
 read(parol,par);
 if b<>length(par) then
 begin
 writeln('Пароль должен содержать ' ,b,' символов, а содержит ',length(par));
 close(parol);
 exit;
 end;

            while not Eof(fl) do 
            begin
            for i:=1 to n do 
            begin  
            for j:=1 to b do 
                                              begin
                                              if Eof(fl)then 
                                              begin
                                         
                                                             begin
                                                             m[i,j]:=chr(random(32)+ord('а'));
                                                             write(m[i,j]:4);
                                                             end; 
                                                        continue
                                              end 
                                            else
                                            read(fl,S);                  
                               if pos(s,alfavit)>0 then
                               begin
                               m[i,j]:=s;
                               write(m[i,j]:4);
                               end         
                               else
                            begin
                                                             
                            read(fl,S);
                            m[i,j]:=s;
                            write(m[i,j]:4);
                            
                            end;                       
                         end;
                    writeln;
                    end;        
            writeln;
            l:=l+1;
                end;
              
              writeln('  -----------------------');
              
             
              assign(shifr,'shifr.txt');
              rewrite(shifr);
                          
              for a:=1 to l do
              begin
              for x:=1 to b do
                      begin
                          k:=1;
                          for i:=2 to b do
                          if par[i]<par[k] then k:=i;
                           par[k] := 'z';
                          write(k);
                          hh[x]:=k;
                      end;
                      for j:=1 to b do
                      begin
                      for i:=1 to n do 
                      write(shifr,m[i,hh[j]]);
                      end;   
              
              writeln;
              
        
              for x:=1 to b do
              begin
              k:=1;
              for i:=2 to b do
              if par[i]>par[k] then k:=i;
              par[k] := 'a';
              write(k);
              hh[x]:=k;
              end;
              writeln;
              for j:=1 to n do
              begin
              for i:=1 to b do 
              write(m[j,hh[i]]:4);
              writeln;
             end;
              end;   
              close(fl);
              close(shifr);
              writeln;
             
             

            
            
              
              
end.

[Serge_Bliznykov]

это не поможет?
Маршрутное шифрование.PascalABC.