шифрование гаммированием

[laltyc]

помогите дописать задачу на Delphi:
"Зашифровать и расшифровать текст, находящийся в файле с именем Source.txt. Закодированный текст сохранить в файле с именем Coded.txt, расшифрованный текст записать в файл DeCoded.txt. Для генерации гаммы использовать мультипликативный датчик со значениями a = 5, m = 4096, Y0 = 3091".
вот код на языке Pascal:

Const   а=5;   m=4096;   y0=3091;
Var      Gamma: array [1..8] of byte;
 
procedure Datch(var t:array of byte);  {Процедура формирования случайного числа}
Var    I, v : integer;
begin
  y:=y0;    for i:=1 to 8 do begin     y:=(a*y) mod m;       t[i]:=y;   end;
end;
 
procedure Code;                      {Процедура кодирования}
Var
    ……………………………….. {Описание переменных для кодирования}
begin
             ………………………… 
   j:=0;
   repeat
Datch(Gamma);
for i:=1 to 8 do begin  
   read(FIn,ch);    Buff[i]:=ord(ch);    end;
for i:=1 to 8 do begin
  TextSh[i]:=Buf[i] xor Gamma[i];
  write(FOut,chr(TextSh[i]));
end;
inc(j);
   until Eof(FIn);
   Close(FOut); close(FIn);
 end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.