d then Begin
  Ch:=Readkey;
  if ch=#27 then halt;
      End;
   End;
(*  if (paramcount<>2) or (pos(''?'',paramstr(1))>0) then begin
    writeln(''Syntax: DECODE  
  
'');
    writeln(''Both parameters are required!'');
    halt;
  end;
  key:=paramstr(2);
  decode(paramstr(1));
  writeln(''File successfully decoded!''); *)
end.